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preface 


This book uses the computer in an unusual way: as you build the 
programs in this book—computerized tools that will help you with school 
and work—you will be learning some of the tricks of the programmer’s 
trade. When you are done, you will have a group of useful tools, and a 
good grasp on programming. 

Interesting programs usually come already programmed: the real fun 
of working with a computer—making programs—has been grabbed by 
the packager, and you only get to use the program. In this book, you will 
learn about programming while building the tools for using the computer 
to learn about other things, too. 

The book is designed for anyone who wants to learn programming, 
wants to provide students with useful tools, or both. 

The four programs in the first section of the book are meant for 
younger students—they introduce the computer’s keyboard and screen 
and help build symbol recognition and logic skills. But we can’t expect 
young ones to program before they can read. An older person—“the pro¬ 
grammer,” maybe seven or older—will need to help. The first programs 
are carefully designed to help the novice over some of the humps all 
programmers encounter when they start, and to proceed with good pro¬ 
gramming habits from the very first. 

The six programs in the second section are more advanced computer 
students; even so, programmers younger than age twelve will be able to 
write these programs, which will then be of genuine use in their studies. 
Some of these programs are more advanced in structure and concept, so 
as you build these programs, you gain more insight into the ways pro¬ 
fessional programmers develop working programs. 

The last section contains six programs which will be of use to anyone 
who wishes to use the computer as a tool for organizing and simplifying 
daily life. And the writing of these programs will expose the programmer 
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to some of the more advanced techniques available to a programmer 
working on the ATARI. 

In this book you learn to use the computer while building useful tools— 
the computer is present in your learning as subject, as means , and tool. I 
have been working with micro-computers in classrooms, using that 
approach, since they first appeared there in the late 1970s. I have 
watched seven-year-olds use this approach to learn programming. For 
many students, the computer is as natural a part of the learning envir¬ 
onment as the television and the textbook. 

“Yes, but does it do anything useful?” is a question many home compu¬ 
ter owners hear. With these programs on your computer, the answer is 
clearly Yes. There are programs in this book that anyone, even big peo¬ 
ple, can use for practical work. And again: learning the native language 
of a computer, in order to teach it to do your work, is the most useful 
learning of all. 

I have written this book with a clear purpose always in mind: learning 
and computers are fun when embarked upon in the right spirit. 


Michael Potts 
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a message to parents 
and teachers 


With this book, you can turn an ATARI into a Homework Helper. The 
programs in the first section help pre-school and elementary students 
(age four to nine) practice elementary concepts—counting, symbols, and 
spelling. Very young children can play these games and learn with the 
computer. (The bigger person who helps type these programs in will 
learn a lot about programming in BASIC—more about that later.) The 
five intelligence games in the second section are for the use of older 
students—ages seven through thirteen—polishing these skills further, 
but there are learning challenges here for most adults as well. The study 
tools in the advanced section help you illustrate, organize, graph, and 
calculate. 

This is not a read-only book: you should work with it and an ATARI 
computer. It doesn’t matter if you’ve never touched a computer—or even 
a typewriter keyboard—before. On the way through this book, you learn to 
program in BASIC. When you are done with this book, you will have a 
well-trained silicon-based homework assistant, and you will know how to 
use BASIC to get computers to do what you want. 

Most books that teach programming remind me of high school lan¬ 
guage textbooks: lots of word lists and verb conjugations, but no feel for 
the language or the people that speak it. In this book I try to interweave 
computer language with a plain-English explanation. Doing this book is 
the equivalent of living for two weeks with a family in the BASIC 
interpreter! 
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Many computers live in closets because owners find little useful to do 
with them. This book tackles that problem head on: people, students 
particularly, can use the programs in this book to go the extra distance 
needed to be an exceptional student. 

If you just bought an ATARI computer or are thinking about buying 
one to help your children with school, this book will build a useful part¬ 
nership between your children and the computer. 

If you bought (or are considering) an ATARI to teach yourself pro¬ 
gramming, this book will help you build the tools you will need to turn 
the computer into a working partner. 

If you are a teacher with an ATARI in your classroom, this book 
should reside beside the computer as an invtiation to your students to 
make the computer do useful work. Take the computer and book home on 
weekends and write the programs; when you are done, you will be able to 
answer most of your student’s (answerable) questions, and you will know 
enough to turn the computer into your classroom partner. 

If you work with words and numbers, this book will help you turn your 
ATARI computer into a willing, skilled, tireless, accurate, and speedy 
assistant. Machines should work, and people should think—but to make 
machines work, you need to know how to ask. BASIC, the native lan¬ 
guage of most small computers, is easy to learn: even my youngest stu¬ 
dents have mastered it, working on tools like the ones in this book—tools 
to help with their work. This book makes computers a relevant and useful 
study. 
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Computers are like newborn children, who must be taught to 
crawl, speak, and walk—skills grown people take for granted. The 
four programs in the first section of this book may be more inter¬ 
esting for their programming techniques and structure than for 
what they do, unless you are fortunate enough to have a young 
learner around. 

Learning with a computer is especially rich and rewarding for 
young children for a number of reasons. First, the current genera¬ 
tion of home computers are well-suited to the learning tasks of the 
young—shape and symbol recognition, number games, and word¬ 
building. Second, computers represent a change as great as that 
made by telephones and television for earlier generations. Compu¬ 
ters belong in the learning environment of the young, who will 
grow up to be completely at ease and in control of a technology 
that seems to many of their elders to be potent and sinister. Third, 
computers are growing up with our children: a child who masters 
an ATARI by age six—and that is quite possible—will be chal¬ 
lenged by more capable, as yet unimaginable machines again and 
again as she grows up. Adults might view that challenge as 
unpleasant, but to children who “grow up” with computers, I 
expect it will be one of the most natural and enjoyable experiences 
in the world. 

Learning with computers takes a number of forms; learning to 
program a computer is an experience much like learning a foreign 
language. To me, programming is negotiation with a Silicon 
Intelligence—the single-minded, literal, and logical presence 
within my machine. If I tell it to tie itself in knots or chase its tail, 
it does it unquestioningly and with lightning speed. Over the 
years, I have learned that even the simplest program benefits 
from my logical approach, or suffers when I am not sure what I 
want to do. Beginning programmers, especially younger ones, 
often bite off projects much larger than they can chew and find 
programming quite frustrating. I am reminded of George 
Washington Carver's story of his dialogue with the Almighty: “I 
want to know Everything about Everything,” George said, and 
the answer came back, “How about everything about the peanut , 
George. It's more your size.” 

The programs in this section are easy to write, with just enough 
challenge for beginning programmers. They’re about the right 
size. 
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NUMS 

a symbol recognition game 



DISCOVERING THE CO MPUTER 

NUMS is a very simple program, and even very simple pro¬ 
grams have their challenge. Computers can be demanding 
partners. They are extremely literal-minded. Therefore, a good 
strategy for getting the job done is needed. 

For this program to be useful as more than a programming 
project, you will need a young person (aged 2 to 5) to play the game 
when you have finished it. 
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The purpose of the game is to help build a quick, accurate asso¬ 
ciation between the number keys on the computer and the sym¬ 
bols on the video screen. Many younger children find the key¬ 
board, with all its symbols and keys, quite bewildering. Making 
friends with ten keys helps engage these young ones. 

For the programmer, the purpose is to work with the computer 
with a job in mind and finish with a tool usable by a young child. 
The skills learned here will be useful when it comes to more com¬ 
plicated (and interesting) challenges in the future. 

In NUMS, the computer randomly chooses a number (from an 
easily changed group defined within the program), and the player 
presses the corresponding key. When you get it, a colorful YES 
flashes on the screen. 

Younger children (aged 2-5) may be able to recognize only the 
numerals from one to five at first but will quickly learn the rest 
playing this game. 

WRITING THE PROGRA M 

Here's a flow chart and program listing for NUMS. If they 
make no sense to you, don't worry. There’s a step-by-step explana¬ 
tion on page 8. Programming in BASIC, the native language of 
your ATARI, is easy, because you can build programs a few lines 
at a time and test them to make sure they work. We will use that 
system—professionals call it “modular programming.” 

Subroutines can be used from anywhere in a program or bor¬ 
rowed for several programs. In later programs you'll begin to rec¬ 
ognize “old friends” among the program lines. You will learn to 
borrow them from earlier programs, so you won’t have to type 
them in more than once. That’s what computers are for: machines 
should work, people should think. 

So let’s get down to it, and start at the end! 
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The last line of the program is a one-line subroutine that makes 
up a random number R between a low number (LN) and a high 
number (HN). You will need this line in several programs, but you 
only need to type it once. If you build the program a piece at a 
time, and test each piece as you build it, you know for sure that 
your program works. If you type a program like this: 

10 0 L N - 0: H N = 9 

110 GOSLIEi 1300:PRINT R, 

120 GOTO 110 

1300 R-INT[LN+(HN-LN+1)*RNDf1j):RETURN 

and RUN it, your video screen will fill with randomly chosen 
numbers between zero and nine-—unless you made a mistake. If it 
doesn’t work, you only have four lines of code to debug. Lines 100, 
110, and 120 are temporary (called a “stub” by programmers): 
they test the random number subroutine at line 1300 to ensure 
that it is working right. 

_ A TARI 800 notes _ 


Saving Your Work 

It would be a good idea to practice saving your program while it’s short. If 
you (or the computer) should happen to make mistake, you'd only have a 
few lines to type over again. If you have a tape system, make sure your 
recorder is ready, and type 

Sh VE "RANDOM " 

If you have a disk system, type 

SAVE"D:RANDOM 

Dimensioning Strings 

The ATARI is very picky about the way programmers use string 
variables —variables that contain text instead of numbers. An example is 
the N$—I call it N-string—in line 20 of NUMS. Soon it will contain the 
player’s name. Line 2 tells the computer to save a place in memory 20 
letters long for N$. If you forget, or I should say when you forget, to 
dimension a string, the ATARI will reward you with an ERROR 5 
message. 
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THE BEGINNING OF NUMS 


Let’s plunge into the program. The first section is the 
introduction: 


1 ! : 

a'EM ** 

-ft- ->v 

•irk- » 

a- >i ■ 

: pr : K . ,.J. 

•i,;. 

2 I 

31M AS 

< :t 0i 

9 ) 

, BS (: 

‘■r \ V . . 

■’ n 

< 2 0 ) , R % i 


PR I NT 

CHF 

;* ( 

125 > 
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OPEN T 

1 1 , 4 

• H £ 

L "!C 

ft 
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DATA :l 

L2, 

3, 

4 , 5 

6 , 7 ,, (: 

L, 9,, 0h El'll 

1 0 

PRINT 

: PI 

R 11 

MT 11 \ 

HELLO 

- ":PRINT 

e : 

IS MUM 

Q " 

U/ II 





20 

PRINT 

"WHA 

T IS 

-<■ 

i — i 

• _j 

j 

NAME" U :: 

: N= 

= 1 






30 

READ 

BS; 

IF 

1 

"END" 

THEN 50 

40 

AS (N) 


: N : 

=N+1 

: GOTO 

30 


MUMS 


fc 


The lines before line 10 prepare (or initialize) the computer for 
the special task we have in mind for it. Line 2 sets up space for the 
string variables, line 3 clears the screen, and line 4 opens com¬ 
munications between the keyboard and the computer. Line 5 has 
the DATA that the computer will display on the screen. 

Lines 10 and 20 introduce the program and find out the player’s 
name. Lines 30 and 40 are a “loop,” which reads the data in line 5 
and stores it in an array called A$—testing every one as it goes to 
see if it’s the END. Line 50 sets the low number and high number 
for the random number making subroutine. It is the last line in the 
set up part of the program. 

_ ATARI notes _ 


String Arrays 

It would be nice to have a bunch of string variables to contain similar 
data—like the ten numbers for this program. ATARI MicroSoft BASIC 
lets you work with such an array of strings, but ATARI BASIC does not. 
We get around the problem by putting them all in one string (A$), which 
looks like this when it’s been loaded up by lines 30 and 40: 

1234567890 
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That wouldn’t be very useful, but fortunately we can ask for a part of a 
string at a time, like this: 


You Type 

PRINT A$ 
PRINT A$(l,2) 
PRINT A$(5,10) 
PRINT A$(5,8) 
PRINT A$(7) 


Computer Prints 

1234567890 

12 

567890 

5678 

7890 


In the last example, the computer provided everything from the number 
given er to the end of the string. With this substring-slicer, you can play 
many games with the computer’s memory, as you will see as you read on. 


THE MAIN PROGRAM 


The main program pivots on line 50 like this: 


5 0 L N ™ .1 :1-1N N 1 

60 GDSUB 1300:REM GETS A RANDOM NUMBER 
70 GRAPHICS 2+16:POSITION 10, 5: R$==A* <R 
,R):PRINT #6;R$; 

80 GDSUB 1000:B$=CHR$(K):REM GETS KEY 
90 IF B$=R$ THEN 110 
100 GOTO 80 


200 FOR 7=1 TO 800:NEXT 7 
290 GOTO 50 


Line 60 sends out to the random number generating subroutine 
at line 1300. Line 70 pops us into GRAPHICS 2+16 and POSI¬ 
TIONS the cursor ten columns over and five lines down from 
HOME—the upper leftmost comer of the screen—and prints a 
randomly chosen string there. 

Line 80 calls another subroutine: it sends program control to 
line 1000 to get a message from the keyboard and the outside 
world. Don’t worry that there isn’t any line 1000 yet. We’ll write it 
soon. Until we do, the program won’t run. 
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Skip lines 110-150 for now, but type in a temporary line like 
this: 


110 PRINT 86; ""'Y E S ! 

Line 200 is an “empty loop.” It doesn’t do anything but count to 
800, holding the display long enough for you to read it. Line 290 
sends the computer back to the beginning of the main program 
loop at line 60. 

Try it out: type RUN. If it doesn’t work, find out why. Debug¬ 
ging is the fun part. 

THE KEYBOARD SUBROUTINE 

The three lines of code starting with line 1000 peek and poke 
around in the innermost recesses of the computer’s memory to 
find out if any human has thumped on any key. This is the part 
where we tell the computer how to attend to us: 


1000 I—PEEK(764):IF 1=255 THEN 1000 
1010 GET #1,K:POKE 764,255 
1090 RETURN 

1 300 R= I NT ( LN+ < HIM-LN+ 1 ) *RND (1) ) : RETURN 


Line 1000 PEEKs into the contents of memory address 764, where 
the computer maintains a constant flag about pressing of keys. If 
no key has been pressed since the last time we looked, we find the 
number 255 there. (If you are curious why 255, you will like ANY- 
BASE on page 98.) If line 1000 discovers the 255 no-change mes¬ 
sage, then it looks again, and again, and again until someone 
pokes a key. Then (764) doesn’t contain 255 anymore, and we can 
GET the most recently pressed key out of a buffer we OPENed 
back in line 4. Having received the keystroke, we POKE 255 back 
into (764) and RETURN to the line that sent us. 

SOME FANCYWORK 

When you have exterminated any bugs, you have time to dress 
up the program for use. 

Now for more graphics. 
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110 POSITION 8,6:HN=5:LN=1 
120 GOSUB 300:PRINT #6;CHR$(89+R*32); 
130 GOSUB 300: PR I NT #6; CHF<$ (69+R*32) ; 
140 GOSUB 300:PRINT #6;CHR$ <83+R*32); 
150 PRINT #6;" !" 


300 GOSUB 1300:IF R-2 THEN 500 
310 IF R=3 THEN 300 
390 RETURN 


These lines play with the colors available for the letters in YES. 

There is a copy of the whole program in the appendix so you 
can list and check your work. Writing programs is a very special 
kind of writing—more meticulous and exacting than any other 
kind of writing. If you misspell a word, the program misbehaves. 

But the payoff is that when the program runs right, you know it’s 
well written. 

That is, if you saved it! What if the power went off now? This 
program is not quite finished, but good program practice says: 
SAVE IT anyway. If you have a tape system, type 

SfiVE "Nil Ml" 

and follow the directions. If you have a disk system, type 

SAVE "D:NUM1 

Now if the power goes out, you’re covered. 




An editing trick: lines 130 and 140 are almost the same as line 
120. You can LIST 120, then move the cursor up onto the listed 
line, change the 2 in the line number to a 3 (or 4), move your cursor 
to the right, and change the two numbers that differ, then press 
< RETURN >, and you’ve got the new lines at almost no cost to 
yourself. Of course, if that seems too complex, you can type the 
lines from scratch. 

Now you get to debug the new parts—I had to fiddle with my 
colors to make them work the first time. Then BE SURE TO 
SAVE! It’s a finished program now, so call it NUMS when you 
save it. Test your work, and when you’re sure it’s right, find some¬ 
one to play it. 

When players get tired of the number from zero to nine, you can 
change line 5’s data. Here are examples. 

The most-used keys: 


5 Dh TR E,T,U,fi,I, N , R, S,E ND 


The home row for touch typing: 

5 DRTR R,b,D,F,J,K,L,;,END 
The beginning of the alphabet: 


J DRTR R,B,L' ,D,E,F,G,H,I 

4 DRTR .J, l< , L, M, N, iJ, P, Q, R 

5 DRTR S, T, IJ, V, N, X, V ,Z,E ND 


You can use any keyboard symbols you want. Just make sure that 
END is the last entry in your DATA. 
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COUNTEM 

a counting game 



A COUNTING-SKILLS PROGRAM 

This program was inspired by the Count, a TV character that 
delights in counting things—a delight shared by many young 
children. As soon as young players have found some of the keys 
they need on the computer, they are ready to strengthen associa¬ 
tions between the keys and numbers. 

For the programmer, COUNTEM is interesting because it 
introduces the concept of “borrowing from yourself,” a strategy 
that saves a lot of work and confusion: if you can reuse a piece of a 
program (a module) that is known to work, the programming task 
is much easier. 
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What happens when the player gets a wrong answer? Compu¬ 
ter programs that TEST ONLY say “WRONGO!” (and some even 
make an impolite noise!). I like programs that help the player 
LEARN. The computer, and the programmer, should be smart 
enough to offer help. Frequently, the help is nothing more than a 
quick reminder about how to count: 


1 2 3 4 5 


HOW MANY? 6 
HOW MANY? 


COUNTEM draws a random number of hearts on the screen, 
then invites the child to count them. (The programmer chooses the 
range of numbers to count.) 

A simple switch, and the objects to be counted flash on the 
screen for only a moment; even adult players can challenge and 
build their pattern-recognition skills! 

WRITING THE PROGRAM 

This program uses some routines borrowed from NUMS. 
Wouldn’t it be nice if you didn’t have to type them in again? Well, 
you don’t! 


- ATARI notes ____ 

Start out with NUMS in your computer’s memory, and type 

LIST 110-200 

The computer will list the code for the colorful YES! block. Then type 

LIST 300-1300 
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You’ll see the rest of YES, and the keyboard and random number genera¬ 
tor subroutines on your screen. Now type 

NEW 

and NUMS will be erased from the computer’s memory, but not from the 
screen! To get the lines into your new program, use the cursor control keys 
to move the cursor into each line you want to borrow, and press {ENTERj. 

for COUNTEM you need to borrow lines 110, 120, 130, 140,150, 200, 300, 
310, 390, 1000, 1010, 1090, and 1300. Now LIST your program. The tricki¬ 
est parts are already done. 


110 

POSITION- 8, 6; HN 

120 

GOSIJB 300:PRINT 

1 30 

GOSUB 300:PRINT 

140 

GOSUB 300:PRINT 

150 

PRINT #65" !" 

200 

FOR T—1 TO 800: 

300 

GOSUB 1300:IF R 

310 

IF R=3 THEN 300 

390 

RETURN 

1 000 

I-PEEK(764> : IF 

1090 

RETURN 

1300 

R=INT (LN-KHN-L 


THE PROGRAM’S INTRODUCTION 


1 REM ***#**•************..*.***. COIJNTEM * 

2 DIM C$(l>,D$(6),M*<12>,Q$(1) 

3 C$=CHE$ <125):M$=" 

4 OPEN #1,4,0,"K!" 

5 PRINT C$;M$;"* COUNTEM *" 

10 PRINT D$;“WHAT IS THE LOWEST NUMBER 
INPUT LL 


20 PRINT " 
INPUT HH 


THE HIGHEST NUMBER 


» II « 
H 
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Line 3 sets up a “clear the screen” string, called C$, to erase old 
data and place the cursor near the screen’s center. M$ is a margin, 
so that the writing isn’t crowded against the left side of your 
screen. Line 5 uses both of these screen formatting strings to dis¬ 
play the program’s name. 

Lines 10 and 20 get the lowest and highest numbers for the 
random number maker. When you play this program, remember 
to keep the numbers adjusted to the player. If you use numbers 
less than 1 or bigger than 9, the program will crash. 

THE MAIN PROGRAM 


30 LN=LL:HN-HH:GOSUB 1300:GRAPHICS 2+1 
6:POSITION 1,5 

40 FOR N= 1 TO R: PRINT #6;" NEXT N 

60 POSITION 3,8:PRINT #65 "HOW MANY? "; 
.“GOSIJB 1000 
70 IF Q=R THEN 110 

80 POSITION 2,4:FOR N»1 TO R:PRINT #6; 
N;" ";:NEXT N 
90 GOTO 60 


290 GOTO 30 


Line 30 sends out to our old friend the random number maker 
for a random number R, then prints R hearts on the screen. You 
make the * in line 40 with the key above the ATARI key. Lines 50 
and 60 move the cursor down a bit and ask “HOW MANY?,” then 
send the program to the keyboard subroutine at line 1000 for an 
answer. 

There is some new code in the keyboard: 


1010 GET #l,K:POKE 764,255 
1020 Q$=CHR$(K) 

1030 IF Q$<"1" OR Q$>"9" THEN 
.1 040 GMVAL (Q$) : PR I NT #6; Q 


1000 


Line 1030 checks to see if it’s a legal key—one of the numbers 
between 1 and 9. If it’s not legal, the computer ignores it and goes 
back to waiting for someone to press a key. 
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If it is a legal keystroke, the keyboard subroutine figures out the 
number value for the key, prints the symbol, and sends control 
back to line 60, the line that called the subroutine. 

Line 70 checks to see if Q (the value of the key pressed) is the 
same as the number of asterisks. If it is, off to the colorful YES! 
box at line 140. 

If not, line 80 moves the cursor back up beneath the hearts, and 
numbers them to help the player count. line 90 moves the cursor 
back to the HOW MANY? then sends the computer back to line 60 
for a new answer. 

You need only one more line: line 290 sends the computer back 
to the beginning of the main program after the YES! display. 

Time to test the program, then put it to use strengthening 
number concepts. 

A challenge for people who know how to count: set the low 
number at 5 and the high number at 9, then try to estimate- 
counting is not fair—the number of hearts. After a little practice, 
you’ll be amazed at how quick you get. 

To speed things up a bit, change line 50 by adding a timing loop 
like this: 


50 NEXT:F0R T=1 TO 50*R:NEXT T:GRfiPHICS 2+16 


If that goes by too fast, change the 50 to a larger number. 
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FINDME 

coordinate geometry game 


HIDE-AND-SEEK WITH A COMPUTER 

Now that numbers are second nature, how about something 
more difficult? Two numbers! Coordinates are two numbers that 
define a location in a two-dimensional space, and this game plays 
with that idea. Ordered pairs—you always type the horizontal, or 
X-coordinate, first—are an important mathematical notion that 
many children never wholly grasp. This game is good practice for 
several classic games, including Battleship and Star Trek. 

The main program for FINDME is very simple to write and 
debug. For more challenge, there is a second version that employs 
the computer’s sound capabilities and demands a bit more of the 
programmer’s and player’s, skill. 

FIND ME! 


i, t i 

T 

8 + + + + + + + + + + 

7 + + + + + + + + + + 

G + + + + + + + + + + 

5 + + + + + + X + + + 

4 + + + + + + + + + + 

3 + + + + + + + + + + 

2 + + + + + + + + + + 

1 + + + + + -(- + + + + 

0 + + + + + + + + + + 

0 1 2 3 4 5 6 7 8 9 
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FIND ME! 


I 

3 + + + + + + + + + + 

7 + + + + + + + + + + 

6 ■4 _ 4'4' + + + + + + + 

5 + + + + + + X + + + 

4 + + + + + + + + + + 

3 + + + + + + + + + + 

2 + + + + + + + + + + 

1 + + + + + + + + + + 

0 + ”)“ + + + + + + + + 

0 1 2 3 4 5 6 7 8 9 

CRN YOU FIND ME (X,Y) ?6, 5 
YOU FIND ME 


FIND ME ! 
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o 

t_J 
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URN YOU FIND ME (X,Y)?5,6 
YOU MISSED ME ! 
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FINDME makes up coordinates—pairs of numbers, like 2,3— 
and plots the corresponding point with an X on the screen. The 
player finds them. 

A tricky variant, Sound FINDME, doesn’t mark the point, but 
gives you musical clues to help you find it: the lower the note, the 
lower the number. 


WRITING THE PROGRAM 


1 REM #*********»■***#•*■*###••*#.* FINDME * 

2 DIM AKi (1000) , (20) , D$ (20) , M$ (12) , C$ 

(12),R*(60),1$(1),T*(20),Q$(20) 

5 C$=CHR$(125):M$="" 

6 M$="":PRINT M$;"* FINDME *" 

10 PRINT C$, "* FINDME *" : PR I NT "V" 

20 FOR R=8 TO 0 STEP -1:PRINT R; 

30 FOR C=0- TO 9:PRINT " + ";:NEXT C:PR 
INT :PRINT 

40 NEXT R:FOR C=0 TO 9:PRINT " ";C;:N 

EXT C:PRINT "X" 

50 hn=9:gosub 1300 :x=r:hn=8:gosub 1300 

: Y-R 

60 vx=x:VY=Y:Z=88:G0SUB 1200 
70 POSITION 1 , 22 :PRINT "CAN YOU FIND M 
E (X, Y)" ; 

80 INPUT QX,QY:IF QX=X AND QY=Y THEN 1 
00 

90 GOTO 200 


Lines 10 through 40 print the grid on the screen. Lines 50 and 
60 locate the the Hider. Line 70 prints the words “CAN YOU 
FIND ME”;the INPUT in line 80 supplies the “?”,gets the play¬ 
er’s answer, and sends the program to line 100 if the answer is 
right. If not, line 90 sends the program to line 200. 

The subroutines are next: 

1200 POSITION 4+<3*VX>,2+<2*<8—VY)) 

1210 PRINT CHR$(Z); 

1290 RETURN 

1300 R= I NT (LN+ (HN--LN+1) *RND < 1) ) : RETURN 
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Lines 1200-1290 calculate the screen position that corresponds 
to the Video-X and -Y coordinates (1200); print the appropriate 
character there (1210); and RETURN. 

You recognize our old friend at line 1300—the random number 
maker. It has to work twice as hard in this game, because every 
answer needs two random numbers. 

FINDME works now, up to the point where you give it a pair of 
numbers. If it doesn’t, work on it until it does. Debugging is one of 
the primary skills of the programmer: you must learn to think 
linearly, like the machine. Exactly where does it stop doing the 
right thing? What was it supposed to do? What did it do? When 
you can answer that, list the code and exterminate the bug! 

Now that the grid is drawn and the X plotted correctly, add the 
lines that check the player’s guess. 

100 PRINT "YOU FOUND ME!"; 

180 FOR T=0 TO 1999:NEXT TTGOTO 10 
200 PRINT " YOU MISSED ME"; 

210 VX=QX:VY=QY:Z»79:BOSUB 1200 
220 POSITION 1,23:PRINT " ";:FOR T=0 T 
O 500:NEXT T 
230 PRINT " 

240 GOTO 70 

This is how the program works: 

The main program begins at line 10 by clearing the screen and 
typing the game’s name. Lines 20, 30, and 40 draw a grid on the 
screen. Line 50 gets random coordinates for the hider, and line 60 
hides her. 

Lines 70 and 80 ask the player to locate the hider, then check to 
see if the location is correct. If the player gets the right answer, 
lines 100 and 110 display “YOU FOUND ME!” for a decent period 
before clearing the screen and circling back to line 10 for another 

spot. If the player is wrong, line 90 sends program control to line 

200 . 

Line 200 prints “YOU MISSED ME” and line 210 plots the spot 
the player entered for comparison. The most common error is giv¬ 
ing the Y answer first; when the wrong point is plotted on the 
screen, it’s easy to see the reversal. Line 220 leaves the message on 
the display for a moment, then line 230 wipes it out. Line 240 
circles back to line 80 for another try. 
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ADVANCED PROJECT: SUPER-FINDME 


In this program, the computer doesn't put an X to mark the 
hider's spot, but issues two pairs of tones to help the player find it. 
The tones are hints: the closer together the tones get, the closer 
you are the hider. 

Super-FINDME blends the FINDME program with another 
program, or routine, called TWONOTE: 

1900 FOR N«0 TO 9:READ NN:N <N)=NN:NEXT N 
1910 Nl=l:N2-8:REM *********** TWONOTE * 
1920 GOSUB 2000:RETURN 

2000 SOUND 0,N1,10,8 

2010 FOR T=1 TO 40: NEX T* T 

2020 SOUND 0,N1,10,0 

2030 FOR T=1 TO 4:NEXT T 

2040 SOUND 0,N2,10,7 

2050 FOR T—l TO 80:NEXT T 

2090 SOUND 0, N2, 10,0: RETURN 

2900 DATA 121,108,96,81,72,60,53,47,40, 

53 

The first lines (1900-1920) are called a “programming stub"—a 
sort of test-bed to make sure the program works right before it gets 
incorporated in a larger program. The notes are requested as vari¬ 
ables Notel and Note2. Be sure the numbers you supply for line 
1910 are in the range from 0 to 9. 

Line 2000 starts the sound generator, line 2010 keeps it on for 
an interval, and then line 2020 turns it off. The last number in the 
SOUND statement is the volume setting, and 0 is off. Line 2030 
provides a bit of silence between the two notes, then lines 2040 
through 2090 sound the second note. 

When you are sure that TWONOTE is working (and saved in 
case something goes wrong), you are ready to merge the module 
with FINDME. 

There are few changes necessary to make the sound module 
work. First, you need to add 

: GOSUB 1900 

to line 5, to initialize the sound generator. The subroutine for “dis¬ 
playing" the hider isn't at line 1200 anymore; we use the sound 
subroutine at line 2100, so line 60 needs to change, too. 



ATARI notes 


Borrowing lines 

To merge TWONOTE into FINDME to make Super-FINDME, make sure 
TWONOTE is in the computer’s memory by typing 

LIST 

Now type 

NEW 

and then load FINDME from disk or tape. When the computer says 
READY, move your cursor to the top of the TWONOTE listing on your 
screen—you should see the cursor block flashing on the 2 in line 1900 of 
the listing. Now press {RETURN} once in every line of TWONOTE 
remaining on the screen—that should be ten times. 

If you list your program now, you should find it is ten lines longer—the 
sound module from TWONOTE has been appended to FINDME. 


1 REN *********************** FINDME * 

2 DIM N(10) ? C*<1>,M*<12> 

S CS*CHR*<125):GOSUB 1900 

60 N1«N< X) :N2=N< Y):GOSUB 2000 
70 POSITION 1,22:PRINT “CAN YOU FIND M 
E (X,Y) " ; 

80 INPUT qx,qy:if QX«X AND QY=Y THEN 1 
00 

90 GOTO 200 

There is some added code between lines 100 and 180, the “Cor¬ 
rect” Fanfare: 

100 PRINT "YOU FOUND ME! H * 

110 N1*N<X)SN2«Nl:GOSUB 2000 
120 N1«N(Y):N2«NISGOSUB 2000 
130 N1«N<3)SN2«N<5)SGOSUB 2000:GOSUB 2 
000 

140 N1»N<7):N2=N(8)SBOSUB 2000 
180 FOR T~Q TO 499:NEXT T 

and similar changes between 200 and 290: 
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200 PRINT M YOU MISSED ME"5 
210 N1=N<QX):N2«N(X):GOSUB 2000 
220 N1=N <QY):N2=N(Y) :GOSUB 2000 
270 POSITION 1 f 23:PRINT H "; 

280 PRINT " "5 

290 GOTO 70 

You can take out the subroutine lines from 1200 to 1290; it isn’t 
used anymore. 

The new program should run now. Test it. There is a full listing 
of SFINDME in the appendix for troubleshooting purposes. 

An interesting footnote: you have written a program (SFIND¬ 
ME) that works very nicely without the video screen. (Of course, 
you can’t turn the TV off, because the computer relies on it for the 
sounds as well as the picture.) Would it be possible to build a 
computer that didn’t use the video at all? How would a computer 
for blind people work? 
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ONECLAP 

a word-discovery game 



“Is this a word, Mommy?” asks the young child, just learning 
to build words out of sounds. Exploring the way letters combine 
into words is an exciting quest for children aged five through 
seven. But English is an illogical language, and many words that 
should be spelled one way, duz for example, are spelled in quite 
another, does. It takes a lot of memory to know the spellings of the 
most misspelled words. But that’s no reason why your computer 
can’t know and help a young child discover a smaller class of 
words. At this age, children are fascinated by truly simple words 
like CAT, PET, and SIT: a letter or two, then a vowel (A, E, I, O or 
U) and a final consonant. I call these One-Clap words, because 
when you sing or say them, clapping your hands as you go, these 
words get only one clap, where other words get more: computer, 
for example, gets three claps. 

This program is an ambitious programming project for the 
beginning programmer. It is nothing particularly complicated, 
but a number of modules must cooperate to do the program’s 
work. Good luck! (Accurate typing helps, too.) 
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ONECLAP is really two games in one program. In the first 
game, the player presses any alphabet key, and the computer 
shows the letter inside the box on the screen. When the player 
presses < RETURN >, the computer replaces the letter with a short 
wod containing that letter. The computer searches for a matching 
word randomly, so pressing the same letter several times will give 
the player several words containing the chosen letter. Playing 
with the computer in this way, the player learns the words in the 
computer’s vocabulary. 

When the player is ready to move on, typing any two (or more) 
letters sends the computer to the second game (or ‘‘mode” as they 
say in the computer world). The child types in a simple word, and 
the computer compares it to its vocabulary. If the computer finds 
the word, it flashes the YES! blcok; if not, it confesses that the 
word “is not on my list” and makes a note of it for future reference 
by someone with a bigger vocabulary. 

Children quickly learn the “one clap” concept by clapping 
along with the sounds of their speaking or singing. A “one-clap” 
word has only one syllable, but that’s a hard term to explain to 
younger players. This program uses an even narrower definition: 
a one-clap word has only one syllable, no fewer than three nor 
more than four letters, and its second-to-the-last letter is A, E, I, O, 
or U. It turns out that there are hundreds of such words—see how 
many you can find—and they comprise a large majority of most 
children’s first written words. This program only supplies a few, 
but children delight in finding more. If the programmer maintains 
the program by adding newfound “good words” after each ses¬ 
sion, the program becomes a fascinating mirror of the player’s 
burgeoning written vocabulary. 

WRITING THE PROGRAM 

Several new concepts make their appearance in this program. 
We can build the program one module at a time, and the whole 
thing shouldn’t take more than an evening. 

The first lines prepare the computer to work with the special 
kind of program we are writing. DIM A$(4000) creates space for 
an array of memory locations to contain the program’s vocabu¬ 
lary. 
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1 REM ********************** OMECLAP * 

2 DIM N$ (20) , MO$ (10) , A$ <4000) , B$ (1000) 


,T$<40),F$<4>,W$(4),1$(1),Q$(1) , V*(5) , 
C$(25> 

3 DIM P(1000),W (5) 

4 OPEN #1,4,0,"K:" 

7 V$="AEIOU":RT=300 

10 C$=CHR$(125) :C$(2)==" * 

ONECLAP * " : F : 'R I NT C$; MO$= " ANY KEY " : MO=0 
20 PRINT :PRINT "WHAT IS YOUR NAME";:I 
NPUT NT:GOTO 3000 

30 60SUB 300:IF LEN(TT)>1 THEN 55 
40 GOStJB 400: G=G+1: IF G<10 THEN 30 


Lines 3000-3200 read the vocabulary from the data lines 9000- 
9990 into the array called A$(V,W), where V is the vowel number 
(starting with 0 for A), and W is the word number. After the last 
word for each vowel is stored, the computer keeps track of how 
many words it has for each vowel in an array of numbers called 
W(V). This module is designed to read as many as 101 words for 
each vowel from the data, provided, of course, that the A words 
come before the E words, and the very last data entry is ZZZ. 


<l 


3000 PRINT "EXCUSE ME,";N$ 

3010 PRINT "I AM READING MV LIST NOW 

3020 PR INT :w «0" ll=0: PP=0 :T*=v$(i, i): v 
=0: w (0) «0: P (0) =0 

3030 READ W* : LW«LEN <W$) : IF W$ (LW- 1 „ LW- 
1)>T$ THEN 3100 

3040 PRINT w*;" "5 :LL=L.L+LW+l: IF LL>33 
THEN PRINT : LL«0 

3050 A$ (pp+1) : pp=pp+lw : w=w+ 1 : p < w > =p 

p 

3090 GOTO 3030 

3100 v«v+i:w<v)=w :if v=5 then 30 
3110 t$= v* *; v+ 1 , v+ 1 >goto 3030 

9000 DATA BAT, CAT, EAT, FAT, HAT, MAT, PAT, 
RAT,SAT,TAT,VAT,WAX 

90 1 0 DATA BET,GET,JET,LET,MET,NET,PET, 
SET,VET,YET 
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9020 DATA BIT, F 17,HI7,KI7,PIT,SI7,TI7, 
WI 7,ZIP,QUIT 


9030 DATA COT,DO 

IT, G! 

::rr 

POT,ROT,SOT,TOT 



9040 DATA BUT , CI.J 

1" G( 

JT 

RUT 




HOT,JOT,LOT 
HUT,JOT,NUT 


NOT 


PUT 




9990 DATA 


~r “? 
/. L. 


~r 

/ 


Line 3020 gets everything set for reading the data. Line 3030 
READs a word—it must be a string, because it is text, not 
numbers—counts the number of letters in the word, and checks to 
see if the second-to-the-last letter is the same as last time. If not, it 
shoots off to line 3100 to keep track of the number of words for the 
current vowel. If it is the same vowel, the program moves on to line 
3040 where the word is printed, the line length on the display is 
tallied, and if it is greater than 33 a new line is started. Line 3050 
adds the new word to the vocabulary list stored in A$, notes the 
ending position of the new word, adds 1 to the word count, and 
goes back to line 3030 for the next word. 

You can RUN the program now to test your work so far. It 
should read its vocabulary, then encounter an error at line 30—it 
tries to find line 300, which isn’t written yet. If you type 

PRINT R$ 


after the crash, you should get something like this: 


EiATlJATEATFATHATMRTPATRATSRTTATVATUAXBET 


The next logical place to work is on lines 300-390, so the pro¬ 
gram RUNs farther. 

3.00 GRAPH IC5 2+16: PR I NT #6; MOT 
310 POSITION 8,5 : PRINT #6POS IT I O 
N 8,5 

320 T$-"":T —0 :GOSUB 1000 
390 RETURN 


Line 300 shifts the screen display to a different GRAPHICS 
mode (which clears the screen), prints the mode, positions a ? 
near center-screen, repositions the cursor so the next keystroke 
will wipe out the ? and then sends out to line 1000 for a keystroke. 
We need our keyboard subroutine—do we have to type it in all over 
again? No! 
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ATARI notes 


Borrowing lines from other programs 

It s smart to let the computer do the work for you. If you already have a 
working keyboard module—you do if you typed in NUMS or COUNTEM— 
you can avoid mistyping and debugging by following this procedure: 

SAVE your work. (It is time you did that anyway. If someone kicked out 
the plug, you’d be sorry!) Then type 

NEW 

and 


LOAD'D: NUMS 

for a disk-storage system. If you are using a tape system, check 
your ATARI manual for loading instructions. 

LIST line 4 and lines 1000-1300, then type NEW again. ReLOAD 
the incomplete version of ONECLAP you saved at the beginning 
of the last paragraph, and move your cursor up into the lines you 
listed from NUMS. Press {RETURN} in each of the listed lines; as 
you do that, the line is entered into your computer’s program 
memory exactly as it shows on the screen. 

Zip! the keyboard subroutine has been installed in your new 
program at very little cost and with a high degree of reliability. 


1000 I-PEEK< 764 > 

101.0 7=7+1:IF T<RT THEN 1050 
1020 IF MO>0 OR L.EN <7$) =0 THEN 1050 
1030 POSITION 6,10:PRINT #6;"PRESS CRF 
TURN3";:7=0 

1040 POS17 I ON 8+L.EN (T$) , 5 

1050 IF 1-255 THEN 1000 

1060 GET #1,K:POKE 764,255 

1070 IF l<= 155 THEN RETURN 

1080 I $=CHR$ (l<) : PR I NT #6; 17; : T$ (LEN (T $ 

> +1 > -1 $ 

1090 GOTO 1000 

1 300 R=1NT < LN+(HN-LN+1)*RND(1)) : RETURN 

There are some necessary additions to the keyboard subroutine 
beginning at line 1000. If you’re wondering what is special about 
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155 (in line 1070, it’s ATARI BASIC’s internal code for the 
{RETURN} key; line 1070, for instance, translates, “if the input 
key is not equal to {RETURN} then print it and add it to the text 
string.” 

You can test this module directly after you have it typed: type 

GlJbUB 1000 

Nothing exciting happens—the computer just sits there and 
hums. Type something in, like 

HELLO, COMPUTER 

and press {RETURN}. The computer responds with READY. 
Nothing very interesting? Ask the computer to print T$—you can 
take a short-cut and type 

? TS 

The computer should respond by typing your message again: the 
keyboard subroutine displayed your keystrokes, while capturing 
them in the test string. 

Line 1300 is our old friend the random number maker, borrowed 
already from NUMS. 

Lines 400-490 match single keystrokes from the keyboard with 
words containing those letters (from the first part of the game). 


400 F*=T60SUB 500“ IF F<0 7 HEN 420 
41 0 HN*=W (F+1 ) - W (F ) :: GOSUB 1300: WP=W ( F ) + 

r : ( p »: wp ) +1 „ p ( wp+ l)): goto 480 

420 H N - 4: G 0 S U B 1300: W « 0: N W=W (R +1 ) - W (R) 
425 NW=W (R+1 ) - Ll ( R) 

430 WP—W (R) +W: W$ —( P (WP) + 1 f , P (WP+1 ) ) : I 

F T*=W*<1,1) THEN 480 

440 IF T$=W$(LEN(W$)) THEN 480 

450 W=W+l:IF W<NW THEM 430 

460 R-R+l:W«0:IF R<5 THEN 425 

470 R—0:GOTO 425 

480 POSITION 8,5:PRINT #6;W$ 

490 GOSUB 800:RETURN 




The complicated expression in line 410, 

N$=R$ (P (HP ) +1, P (WF'+l) ) 

extracts a single word from the vocabulary string. The storage 
strategy works like this: 

P ( ) 0 1 2 W 1 Hflj+1 H(5) 

R$ BRTCRT . . . WRXGET . . . RUT 


Example: if we want the second word, its starting position is one 
character to the right of the end of the previous word—P(WP)+1, or 
position 4. It ends at P(WP+1)—position 6. (The WP counter starts 
at 0, and lags one behind the word count, so WP=1 for the second 
word.) A$(4,6)=“CAT”. 

The lines from 500 to 590 set up a variable F to work with the 
vowels in the words. 

500 F=-l:lF F$~"A" THEN F--0 
510 IF F$="E" THEM F=1 

520 IF FT="I" THEN F=2 

530 IF FT= M 0" THEN F=3 

540 IF F$="U" THEN F=4 

590 RETURN 


With these modules typed in and debugged, the first part of 
ONECLAP should work—and the hardest programming is done. 
To finish the program you need: 


50 MOT-"ONE! CLAP" :MO=l:GOSUB 300 
55 LT-LEN (7$) : IF L..T<3 THEN 250 
60 F$=TT (LT-1., LT~ 1 ) : GOSUB 500: IF F 1 
THEN 250 

70 W—0 z NW—W (F"+' 1) —W (f-) 

80 WP=W (F) +W: WT=AT (P < WP) +• 1, P (WP+1) ) : IF 
T$=WT THEN 100 
85 W=W+l:lF W<NW THEM 80 
90 GOTO 250 

100 POSITION 3,6:PRINT #6;"IS ON MY LI 
ST.":GOSUB 800 

110 NR==NR+1:IF TT-"QU.IT" THEN 700 
190 GOTO 50 
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Line 200 and further take care of words not on the list. 


250 POSITION 1,63: PRINT #6; "IS NOT ON M 
V LIST.":GOSUB 800 

260 B* <LEN <B*> +1)=" M : E<$ <LEN <B*> +1> =T$ 
290 GOTO 50 


Long program! But now it’s ready to test. On the next page you 
will find a programming tool, called a flow chart, to help you 
debug this program. Follow the lines on the chart while the com¬ 
puter follows the program logic. If the computer does something 
unexpected, you’ll know where to look for a problem. Computers 
are literal to a fault: if a single character is wrong, the computer 
will either complain or do the wrong thing. 

Once you have ONECLAP performing the way it should, you 
can add lines 700-900, which let the player QUIT the game and see 
the words the computer doesn’t have on its list. 


700 PRINT 
710 PRINT 
WORDS. " 
720 PRINT 

:":print 


CSSPRINT PRINT 
m ; " FOUND "5 NR:PRINT , "GOOD 

SPRINT "WORDS NOT ON MY LIST 
P«1SLB=LEN(B$> 


730 P P=3 7 S IF L B - P < 37 7 H E N 7 9 0 
740 IF B$ (P+PR, P+PP> =* M " THEN 760 
750 PP=PP-1:GOTO 740 

760 PR I NT' B$ (P„ P+PP-1 ) : p=p+pp+1.: GOTO 7 
30 

790 PRINT B$(P,LB):END 


There is a full listing of ONECLAP in the appendix. 
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'ANY LETTER" 
Mode Control 
[30-40] 



Read Vocafc 
[3000- 


n- 




Find & Display 
[400+] 


Get an Entry 
[300+] 

Check Vocabulary 
[500+] 


GOOD WORD 

[ 100 +] 
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The next six programs take the computer from the crawling 
and walking stage to the running and jumping stage. There 
should be something interesting and useful for anyone old enough 
to press the keys. There is one game that will have the quickest of 
mathematicians scribbling away with pencil and paper along 
with the rest of us: it’s possible, but tough. 

The computer is a smart blackboard: write a “little program” 
that teaches some specific lesson quickly, these six programs pol¬ 
ish various school skills—logic memory, spelling, math, history, 
and word problems—as painlessly as possible. 

The programming involves several new techniques. As you 
construct these programs, you will see the reasons for building 
certain parts first, like building the roof and walls to keep the rain 
off, but only after the foundation and floor are solid. 
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PATTERNS 


8 15 16 11 ? 


F'RTTE 5 
F'RTTE N 
F'RTTE NS 
PATTER 
PATTER S 
PATTERN 

PATTERNS-a pattern recognition game 

This program makes up mathematical puzzles like 


1 3 ? 7 9 

[series oriel 


and a 15 16 11 

(series two] 


The player's job: decipher the rule and supply the unique missing 
number. Such puzzles often find their way into intelligence tests 
and math textbooks; the ability to deduce the answers quickly is 
often taken for intelligence. 

Some patterns, of course, are easier than others: the first series 
is the odd numbers, and the missing member is 5—a six-year-old 
can easily find that. The second one is not quite so easy—the 
answer is zero. 


lb! Jb 54 ? 

NHflT IS MISSING? 1 
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How to solve them 








There is a systematic method for solving all but the alphabetic puzzles 
with pencil and paper. Write out the series, then bracket each pair of 
numbers and note the difference between them. Then bracket each pair of 
differences and again calculate the differences. Repeat the process until 
you recognize the pattern, and you’ll be able to work backwards to find 
the missing number. Good luck! 


PATTERN is the computer version of an age-old number game: 
it presents a series of numbers with some mathematical rule 
governing their relationship, and the player tries to find the rule 
and supply the missing number. This program uses five different 
algorithms (fancy computer talk for rules) to generate the sequen¬ 
ces: additive, multiplicative, incremental, exponential, and alpha¬ 
betic, to give them properly mathematical names. Mixing them up 
randomly, this game can sharpen the number skills of almost 
anyone. Does practice make perfect? 

The program begins by asking you to select a difficulty level 
from 0 (easy) to 9 (hard). The complexity of each series is based qn 
this level. The computer presents a series with one missing 
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member, which you calculate and type in. If you are right, the 
computer makes up another series, but if you’re wrong, it shows 
you the same series with a different missing number. 

WRITING THE PROGRAM 


PATTERNS lends itself to modular construction, because it 
involves several different methods for deriving number series— 
each method gets its own set of lines. Start with a framework that 
includes two different series-generation algorithms, make sure 
they work, and then add more modules. 

The program uses our old standby, line 1300: the random 
number maker. You can copy it from another program following 
the procedure on page 16. The main framework of the program 
goes like this: 

Line 5 sets the low number variable LN for the random number 
maker. Line 60 gets the difficulty level; line 70 calculates the high 
number for randomly choosing the series algorithm, which is then 
chosen in line 80. 


1 Rb.M ********************* PATTERNS * 

2 DIM Q$(3) , P$(11):p$="PATTERNS 
5 LN=1 


60 PRINT "PATTERNS":PRINT :PRINT :PRIN 
T "EASY (0) OR HARD (9)"$:INPUT DF 
70 PRINT : HN=INT (DF/2) +1: IF HN>5 THEZN 


HN—d 


IT 


80 GOSIJB 1300: ON R GOTO 100,200, 300,40 


0. 500 


Lines 1000-1090 are a very simple “keyboard” to get the player’s 
answer. Lines 1100-1190 leave lots of space for polishing up the 
scoring routine—see the suggestions at the end of this section. 

I believe we have seen line 1300 before. 

1000 PRINT 

1010 PRINT "WHAT IS MISSING”$:INPUT Q* 

1020 IF QT-"" THEN 1090 
1030 IF ASC(Q$)>64 THEN 1090 
1040 Q=VAL(Q$) 

1090 RETURN 
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1100 
1190 
1300 


PRINT "YOU ARE RIGHT." 
GOTO 70 

R-TNT <LN+ (HN-LN+1) *RND (1 ) 


RETURN 


The rest of the program makes up and prints the series. The 
easiest module is additive, and it serves as a pattern for “knocking 
off’ the other algorithms. 


100 HN-4* (DF+1} : GOSL.IB 1300: S-R 
120 HN=2*(DF+1):GOSUB 1300:I=R 
130 HN=2:GOSUB 1300:L=3+R 
140 HN=l_: GOSUB 1300: M=R 
150 FOR N=1 TO L 




II u « 
•I n 


GOTO 180 


il « 

1 


160 IF N=M THEM PRINT M 
1 70 PR I NT n " ; B-i-1 * (N~ 1 ) 5 11 
180 NEXT N:A«S+1*(M~1):GOSUB 1000: IF Q 
=A THEN 1100 
190 GOTO 140 


Line 100 sends out for a random starting number for the series; 
120 sends for an increment (the amount to increase each time a 
new series number is calculated). Line 130 gets the length of the 
series, and line 140 decrees which of the series members will be 
missing. The lines from 150 to 180 are a loop that checks to see if 
this member is missing or printed (160), calculates and prints the 
latterl70),ndloops baif the series has not yet reached its allotted 
length—that’s the FOR (line 150). . . NEXT (180) loop. When you 
understand what a loop does, you have perceived the power of the 
computer. 


S S+l S+l*2 S+I’N 

^ ^ ^ - ■ ■ ■ 


_ ATARI notes _ 

It’s easy to duplicate lines in ATARI BASIC. All you do is LIST the 
original lines, move the cursor onto the line you want to duplicate, change 
its line number (and anything else you need to change to make it exactly 
right). Is everything exactly right? Excellent. The last thing you do before 
leaving the line is press {RETURN}. That snap-shoots another line into 
the computer’s program memory. 
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You can test-drive the program as it stands (but be careful, 
you’ll crash if you try any difficulty over 2!) but I wanted some¬ 
thing a little more interesting, so I added another module: the 
multiplicative: 


200 HN=4*SGR (DF+1 ) : GOSUB 1300: S-R 
220 HN=2* (DF+1) : (30SUB 1300: I =R 
230 HN=2: BOSIJB 1300: L=3+R 
240 HN-L: GOSUB 1300: M=R 
250 FOR N=1 TO L 
260 IF N=M THEM PRINT " ? "; 

270 PRINT " " ;s*I*Nj" "; 

280 NEXT N:A=S*I*M:60SUB 1000:IF Q=A T 
HEN 1100 
290 GOTO 240 


GOTO 280 


If you have the feeling you have seen those lines before, you are 
remembering the module we just finished. You won’t be surprised 
by the next two modules, either. 


300 HN=DF:GQSUB 1300:5=R 
320 HN-DF+1: GOSI.JB 1300: I *R 
325 HN=INT(DF/2):GOSUB 1300:I2=R 
330 HN==2: G0S3UB 1300: L=3+R 
340 HN=L.: GOSUB 1 300: M~R 
350 I1=1:FOR N=1 TO L 
360 IF N=M THEN PRINT " ? 

-1):GOTO 380 

370 PR I NT " " ; S+11 * (N--1 ) ; " 

380 11=11+12:NEXT N:GOSUB 1000:IF Q=A 
THEN 1100 
390 GOTO 340 


Mo ■ 

•S * 


II M 
H 


A=S+11*(N 


This algorithm has two increments (and gets particularly nasty if 
you let negative numbers in: that’s what those mean-looking lines 
at 325, 326, and 327 accomplish. When you get this module work¬ 
ing, play around with the numbers and relationships of this sec¬ 
tion (if you’re interested in becoming a mathematician). 

And now for something utterly different: letters! Words are a 
kind of series, and the logic is certainly different, especially in 
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English. The module beginning at line 400 shifts the program 
from the cooly numeric to the jungle of textual calculation: strings. 

400 IF FR=0 THEN 1600 

410 HN=FR: GOSUB 1 300: R=R-1: (P (R) + 

1, P(R+l)):P=1 

420 L=L.EN (A$) : HN=L: GDSLIB 1300: M=R 
430 HN=2:GOSUB 1300:I=R:IF 1=1 THEN 45 
0 

440 I=-1:P=L 

450 IF P=M THEN PRINT " 

):GOTO 470 

460 PRINT " A*<P,P);" 

470 P=P+I:IF P=0 OR P>L 
480 GOTO 450 
490 GOSUB 1000: IF Q$-~Z$ 

495 IF I<0 THEN 440 

496 P=l:GOTO 450 

The first line sends to line 1600 only the first time this module gets 
called—those lines are next. The next three lines are familiar. Line 
440 sets things up to step backwards through a word—like this: S 
D R A W C A B. The computer language we are using, BASIC, has 
a very powerful way of playing with words. We’ll see more of that 
later. If the string-chopping in line 410 doesn’t make much sense, 
please check the explanation of word-storage on page 29. 

1600 DIM Df> (1000) „ AT < 20) ,Z* <1),P <100) : 

N=0 

1610 READ A$:IF A$="ZZZ" THEN 1690 
1620 LD=LEN(D$):P <W)=LD:D$(LD+1)=A$:W= 

W+l .“GOTO 1610 

1690 P(W)=LEN(D$):FR=W:GOTO 410 
9000 DATA BIRTHDAY,WASHINGTON,FISH,COM 
PUTER,HORSE,BOAT 
9990 DATA ZZZ 

There are dozens more possible algorithms that could be 
included in this game—and lots of memory in the computer, too— 
but I propose to give you only one more: exponents. 


? ";:z$=A*(P,P 

II m 
!» 

THEN 490 
THEN 1100 
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500 HN=5QR (DF) : GOSLJB 1300: S=R 

520 HN=2:GOSUB 1300:I=R+1 

530 HN=2: GOSLJB 1300:L=4+R 

540 HM=L: GOSLJB 1300: M=R 

550 FOR N= 1 TO L: 2 -1 NT (3*N"" I +0.5) 

560 IF N=M THEN PRINT " ? ";:A=Z:GOTO 
580 


tl it 


570 PRINT " ";Z; " 

580 NEXT N:GOSUB 1000: 
590 GOTO 540 


IF Q=A THEN 1100 


(The world of numbers is so much cleaner to program in!) 

A bit of fancywork to dress up the beginning of the program, 
and we can wrap this one and move along to another kind of 
patterning. 


1 0 GRAPHICS 2+16:P=1:X = 1:Y=1:POKE 764, 

w) ul * (A X 

20 POSITION X,YSPRINT #6; F’$ <F\ P> 5 : K==PE 
EK(764):IF K<>255 THEN GRAPHICS 0:BOTO 
60 

30 P=P+l:IF P>8+R THEN P=1 
40 X=X+l:IF X<19 THEN 20 
50 X=l:Y-Y+lSIF Y<10 THEN 20 
55 Y=l:POSITION 1,5:PRINT #65"< PRESS 
ANY KEY > M :HN=4:GOSUB 1300:R«R-1:GOTO 
20 


This short module plays with GRAPHICS 2+16 to make pat¬ 
terns on the screen. If you leave this display running long enough 
for the color-cycling called ATARI Attract Mode to begin, you 
have quite an interesting display. 

There are many more interesting relationships and interrela¬ 
tionships for making this kind of puzzle, and finding and defining 
them is a superior kind of intelligence-building game. 
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REMEMBER 

polish memory skill 


7N0QR1C 


CAN YOU TYPE WHAT YOU SEE? 

Another trait frequently identified as intelligence is the ability 
to glimpse random strings of symbols, like 

7 8 3 5 2 or 7 : ft ) Q 8 2 

then reproduce them: sort of rote-memory muscle-building. Of 
course some people will be able to handle much longer strings 
than others. In writing computer aided instruction, the concept of 
a program’s “ceiling” defines the point past which learners can¬ 
not benefit from a program. This program is a good example of a 
game without a ceiling: the lower levels of difficulty present short 
strings for a long interval, but the highest levels are much too long 
and fast for me! In other words, this game should challenge 
anyone. 

REMEMBER times and scores the play—interesting computer 
functions for any kind of gaming program. The methods and 
modules that time and score can be easily transported to other 
programs. 
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REMEMBER devises strings of numbers, letters, and typograph¬ 
ical symbols, flashes them on the screen for a measured period, 
then clears the screen and invites the player to reproduce the 
string. Playing difficulty ranges from trios of numbers shown for 
several seconds (level 0) up to nine characters displayed for less 
than a second (level 9). You must pay constant, focussed attention 
to the screen, and your typing must be error-free. 

The program is written “open-ended” so that you can add an 
elaborate timing and scoring section. 

WRITING THE PROGRAM 


The keyboard and random number maker appears once again 
in this program; you might like to borrow it from a program 
already in memory. 


2 DIM C$(13),7$(10),(10),M$(8),R$<1) 
, I $ (1) 

4 OPEN #1,4,0,"K:" 

5 C$=CHR*(125>:C$(2)="REMEMBER_ ":PR 

INT C$ 

6 M 

9 TK=0.015:SK=33 

10 LN=0:PRINT :PRINT :PRINT 

20 PRINT "0—EASY 9=HARD ...HOW TOUGH■■ 

;:input df:td= 200*<l i-df) 

30 L=3+<DF/3):HN=9:IF DF>5 THEN HN=36 

35 IF DF>7 THEN HN=22 

40 T$="": FOR N=1 TO L:GOSUB 1300 

50 IF R>9 THEN 70 

60 R$=STR$(R):GOTO 80 

70 R$=CHR$(54+R) 

80 T$ (L..EN (T$) +1) =R$: NEXT N 


Lines 5-30 get the computer ready for work: getting the player’s 
difficulty level and calculating the time delay (20), the length of 
the strings to be devised, and setting the high number in accor¬ 
dance with the difficulty level. The FOR ... NEXT loop from line 
40 to 80 puts the test string together—line 60 adds a space and a 
number produced by STR$(R) each time around, line 70 takes care 
of letters and symbols. 
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The rest of REMEMBER manages the video display: 


100 PRINT C$;DF;M$5 - FOR N=1 TO LEN(T$> 
: PRINT " " 5T$(M ! |N) ;: NEXT N 
110 FOR T=1 TO TDSNEXT T 


120 PR I NT C$; DF J 5 " ? M 5 : M 11 : 7-0: POKE 

764,255 


130 

GOSUB 

1OOO 

: T=T+1 




1 70 

IF K-:l 

55 T 

HEN PR 

I NT 

SPRINT 

: GOTO 

10 







180 

R$(LEN 

1 (Q $) 

4- 1 ) - I $ 

: PR 

I NT I$5 

II II n 

190 

IF D'$< 

>T$ 

THEN 1 

30 



200 

PR I NT 

: PR i 

NT : PR 

I NT 

"EXACT 

LY ! " 

210 

IF Q*= 

H M THEN 30 

0 



290 

FOR T- 

= i rc 

) TO: NEE 

XT 

T:GOTO 

40 


Lines 1000-1090 are the keyboard routine that captures the 
player’s keystrokes and compares them with the computer’s string 
after each one. As soon as the player has completed entering the 
symbols—assuming they are exactly right—the program passes 
into the scoring process. If the player isn’t precise, a {RETURN} 
submits the incorrect string for evaluation. The delay at line 290 
maintains the rhythm of the program; it is exactly as long as the 
viewing cycle in line 110. 


1000 
000 
1010 
1020 


1300 


I-PEEK(764):T«T+l:IF 1-255 THEN 1 

GET #1,KSPOKE 764,255 
I$==CHR$(K) 

RETURN 

R=INT <LN+(HN-LN+1> *RND< 1 > > :RETURN 


Once the program is performing properly, you can add a scor¬ 
ing routine: 

220 
TO 
230 


LT-LEN < T$) : L.Q-LEN (Q*») : SC-0: FOR N-1 
LT 

IF N>LQ THEN 250 
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240 IF T$ (N, N) =Q* (N, N) THEN SC=SC+1 
250 NE XT N: PR I NT " SYMBOLS RIC3HT: " ; SC, 
255 PRINT I NT (100*SC/LT) ; "7." 

260 SC=INT((SK*L)/<(T*TK)*(SC/LT)))+1 
280 PRINT "TIME: ";T*TKj" SECONDS":PRI 

nt "score ";sc:ts=ts+sc:nq=nq+i:tt=tt+ 

T*TK 


300 

PRINT 

c$;DF:PRINT 


31 0 

PR I NT 

■'SCORES: " 


320 

PRINT 

"TOTAL.. SCORE 

ts 

330 

PRINT 

"STRI NOS ATTEMPTED 

"; nq 

340 

PRINT 

"AVERAGE SCORE/* 

";rs/NQ 

350 

PR I NT 

"TOTAL SECONDS 

"; tt 

360 

PRINT 

"AVERAC3E TIME/* 

" JTT/NQ 

390 

FOR 7 — 

l to 3*td:next t:goto 4.0 


Lines 210 to 250 count the number of correct symbols-in-position. 
Line 260 calculates a SCore based on time and the correctness of 

the entry, and line 280 displays the results and keeps track of the 
score. 

To see the scoreboard, press {RETURN} only (lines 300-390). 

ADVANCED TOPICS 

The timer (lines 120 and 130) is tricky because its count is gov¬ 
erned by the number of computer cycles inside the timing loop—in 
this program, that’s how long it takes the computer to do all the 
steps between lines 130 and 190. The difficulty is compounded by 
the fact that different ATARI computers seem to take dif ferent 
amounts of time to accomplish these steps. The time constant TK 
(in line 9) may have to be calibrated for the computer’s “seconds” 
to correspond to “real time.” The easiest way to do this is by 
carefully clocking the time between the appearance of the ? on the 
video screen—when the clock starts—and your last keystroke. 
Adjust TK until the computer time is accurate. 

An adventurous programmer could adapt the scoring module to 
several of the other programs in this book. Recalibration of the 
clock would be required. 
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SPELL 

a spelling driller 


Spelling, at least in English, is not very different from remem¬ 
bering random strings of letters. There are two ways the computer 
helps. One way is with spelling-drillers, like the program in this 
chapter, that present words-to-be-learned in an interesting and 
instructive way. 

Another way is through spelling checkers, programs that 
comb through a written work for unrecognizable words, then offer 
the writer a chance to survey the dictionary and, if necessary, 
correct the spelling. [This book was checked for mistakes using a 
program called ProofReader. See the comments about Word Pro¬ 
cessing in the appendix.] Is it possible that the computer will 
liberate future children from spelling drillers? 

Everybody learns in a slightly different way. This program 
uses four different ways to try to find everyone’s good side: first, 
you type your list (and, if desired, a set of “hints”); next, you play 
REMEMBER (from the last chapter); then you supply the correct 
spelling for each hint; finally, you play Hang-Man with the spell¬ 
ing list. 

For the programmer, this program is an easy challenge, 
because several different modes must work together within a sin¬ 
gle program. 
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ENTER WORDS ZZZ TO QUIT 
1: CAUGHT 

HINT: I CAUGHT A COLD 
2: COUGH 

HINT: HE HAS A BAD COUG 
*** ARE YOU SURE ? 

2: COUGH 

HINT: HE HAS A BAD COUGH 
3: CATCH 

HINT: DON'T CATCH MY COLD 
4: FIRE 



SPELL uses four different practice strategies to help learn 
spelling. The first method is the straightforward entry of the spell¬ 
ing list. After entering the words, you are asked for hints for each 
of the words on the list—a short sentence or phrase for each word. 
(You can skip the hint-entry by pressing {RETURN} instead of a 
hint for the first word.) 
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CATCH PLAY 
CAUGHT I - 


- WITH ME. 
A COLD. 


When all the words are entered, SPELL goes into the “Flash” 
mode; it flashes the word on the screen for a moment, then clears 
the screen, and you type the word in. If you are right, you are 
informed; if not, the correct spelling is shown. When you have 
gotten ten words right, the program promotes you. 

The “Clue” mode shows the clue, and you are invited to provide 
the missing word. Again, if you get it right, the computer tells you, 
but if you miss, the computer shows the right word. When you 
have gotten twenty more words right you go on. 

The “Hang-Man” mode is familiar to all: the computer presents 
you with the right number of blanks, and you press the letters you 
think belong in the word. If you are right, the computer puts the 
letter in the right place, or places, if the letter occurs more than 
once in the word; but if you’re wrong, the computer keeps track. 
You only get twice as many wrong guesses as there are letters in 
the word, so proceed thoughtfully. 

WRITING THE PROGRAM 

SPELL can be put together a mode at a time. The input section 
and the word flasher look like this: 

1 REM ************•#••#***•*•*•*■*•*■** SPELL * 

2 DIM A*(1000) f B«<20>,D$<20),M*<12),C* 

(12) ,R$<60) , I$<1> , T U> (20) , Q$ <20) ,H*<38> 

3 DIM P<3>,Q(3),W<50),X(50),Y<25> 

4 OPEN #1,4,0, "K:" 

5 C$=CHR$ <125):FOR N=2 TO 12:C$(N): 

NEXT N:PRINT C$ 

6 M$="":PRINT M$;"* SPELL *" 

B P=l:FOR N=1 TO 3: READ T$: R*> (P) =T*: P < 

N)=p:p=l.en<r$) :q<N)=p:p=p+i:next n 

9 td=1000:ln=i:nw=i:pw=1:h=0 

10 GOSUB 500:REM GET DATA 

20 FOR N=1 TO ND:PRINT A*<W<N>,X<N>) 

30 IF H=0 THEN PRINT A*<X<N>+1,Y<N>>:P 
RJ NT 

40 NEXT N 
45 H=l:GOTO 200 
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50 FOR T=1 TO T'D: NEXT T 

60 HN=ND: GOSUB 1300: PRINT C$; M‘4>; A<4> (W <R 
) , X (R) ) 

70 FOR T-l TO TD:NEXT T: PRINT C$;M$!: I 
NPUT 0$ 

80 IF Q$=A$ (W <R) , X (R) ) THEN 100 
90 PRINT ."SORRY, IT’S " ; A* (W (R) , X (R) ) : 
WR=WR+1:GOTO 130 

100 HN=3:GOSUB 1300:PRINT :PRINT R*(p< 

R),0 (R) ) 

110 RI=RI+1 

120 FOR T=0 TO TD:NEXT T:IF H=1 THEN 2 
00 

130 IF RI<10 THEN 60 

The code in line 8 reads the “YES” messages that flash when you 
get it right, line 9 sets the time delay, the lowest number (for our 
old reliable random number maker), and the length of the data. 
Please adjust any of these (except LN) to please yourself. There’s 
an unattached wrong-answer counter in line 90. Could you hang 
anything on it? 

You need two more routines to make the program work. The 
lines starting at 500 allow the player to enter data for study. The 

keyboard and random number maker are familiar (and could be 
borrowed from another program.) 


500 PRINT :PRINT "ENTER DATA 
0 QUIT" 

510 PRINT NW;":"f:INPUT T$ 
520 IF T*="ZZZ" THEN 590 


ZZZ T 


530 A$<PW)=T*:W<NW)=PW:PW=LEN<A*):x <nw 

>=pw:pw=pw+i 


540 IF H=1 THEN 580 

550 PRINT "HINT";:INPUT H$:IF H*=" " TH 
EN H=1:GOTO 580 


560 GOTO 600:REM CHECK SPELLING 

570 A$ <PW> =H$:PW=LEN <A$):Y(NW)=PW:PW=P 
W+l 


580 NW=NW+1:GOTO 510 

590 ND=NW-1:RETURN 

600 PP= 1: LT=LEN (T$) --1: LH=LEN (H$) 
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610 PQ-PF'+LT: IF H$(PP,PQ)=T* THEN 660 
620 PP-PP+lsiF FPOLH-LT THEN 610 
630 PRINT "PLEASE CHECK SPELLING":SOTO 
550 

660 IF PP-LH-LT THEN Q$="":GOTO 680 
670 Q*»H*<PQ+1,LH) 

680 FOR P=F’P TO PQ: H* (P) NEXT P 

690 H$<P)=Q$:GOTO 570 

900 DATA RIGHT!!,CORRECT.,YOU GOT IT! 

1000 I“PEEK(764):IF 1=255 THEN 1000 
1010 GET #l,K:POKE 764,255 
1090 I*=CHR$(K):RETURN 

1300 R=INT(LN+(HN-LN+1)*RND<1)):RETURN 

Test the “Flash” mode, and make sure it’s working right. When 
building a complicated program, you want to make sure that 
everything works perfectly before adding more complexity. 
Adding the Clue mode requires only a few more lines: 

150 hn=nd:gosub 1300:print C*;" ";a*< 

X (R) +1, Y (R) ) 

160 PRINT :PRINT M*S:INPUT Q*:GOTO 80 

This module hitchhikes on the “Right!!” message system set up 
for the “Flash” mode. 

_ Who is in charge here? _ 

When testing one of the advanced modes, it tries my patience to play 
through earlier modes. So I write temporary detours into the program to 
proceed directly to my desired module. For example, you go straight to 
Hang-Man by inserting this line 

55 RI =33: GOTO 200 

You can take the line out for a full-playing game at any time. 
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The Hang-Man module is a bit more demanding: 

140 IF H=1 THEN 200 

200 WG=0:RG=0:HN-ND:GGSUB 1300:PRINT C 
M$; 

210 T $=A$ <W(R),X<R)):LT=LEN (T$):FOR 2 - 
1 TO LT 

220 PRINT " 

230 NEXT Z:PRINT :PRINT :PRINT M$;"GUE 
SS? "; 

240 GOSUB 1000:Z=1:PRINT :PRINT "" ;M$s 
250 IF I$=T$(Z,Z) THEN 310 
260 PRINT " 

270 Z=Z+l:IF ZOLT THEN 250 

280 PRINT ”":GOSUB 400:IF RF=1 THEN RF 

=0:GOTO 240 

290 WG=WG+l:IF WG<2*LT THEN 240 

300 PRINT :PRINT "YOU LOSE": GOTO 130 
310 PRINT 1$;" "s 
350 RG=RG+1:RF-1 

340 IF RG=LT THEN PRINT : PRINT : GOTO 1 

00 

350 GOTO 270 


Lines 210 and 220 place the right number of blanks on the screen. 
Your guess (in line 230) gets checked against all the letters in line 
260, and if it isn’t found, your guess is erased (280), a strike is noted 
against you, and if you’ve missed too many (290), you lose. If, 
however, your guess fits into the word, the code starting at line 310 
moves the cursor to the right place(s) in the display line, prints 
your guess, and returns for another. 

It’s easy to put the data inside the program or save it on a disk 
or tape file. The program is less flexible, but in many ways it is 
easier to use. The program on p. 57, TIMELINE, deals with data 
in the first way; after reading it, you could change SPELL ever so 
slightly to work the same way. And SORT (p. 86) would allow 
you to store several lists and call them individually into SPELL. 
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MATH FAX 

practice math facts 


A DRILLING GAME FOR FACTS 

“Two and two are four; four and four are eight. . . The 
mathematical facts of life are never easy, and everyone has a pet 
bugaboo (for me, it’s eight times seven). This program helps you 
perfect your grasp of those facts through drill and practice. 

When we finally “know our math facts,” it is usually the pro¬ 
duct of several learning systems working together: rote memory, 
pattern recognition, and familiarity from practice. This program 
helps people learn (and can be found in innumerable versions on 
every computer in the world) because it combines all three 
avenues to help us learn. 

For the programmer, this is an interesting program because it 
offers a chance to do something often done, but with our own 
style. Some programmers strive to write short code—could this 
program be written in one line? in five? Other programmers work 
to make their programs “friendly” by error-trapping and hand¬ 
holding. I have spent many lines on tailoring each game to the 
player’s abilities and offering graphic help when the answer is 
wrong. 

MATHFAX quizzes you on your pluses, minuses, timeses, and 
divided-byes. It even offers a little help if you get it wrong. 

*MATH FACTS* 


1-ADD 2=SUBTRftCT 3-SUBTRACT 4=DIVIDE ? 4 
HIGHEST NUMBER FOR ADDING? 10 FOR MULTIPLY¬ 
ING? 7 
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You start out by tailoring the drill to your abilities: some play¬ 
ers know more facts than others. You choose the highest 
operation—if you choose 3 for multiply then you get adding and 
subtracting too—and the highest number for adding. If you 
choose multiplying or dividing, you supply the highest number 
there, too. Some children will have mastered all their pluses to 7, 
for example, and will know some of the simple timeses, too—to 3, 
possibly. You can tailor the quiz to challenge a learner at almost 
any level. Adults might wish to improve their speed by setting the 
high numbers to 20 for addition and 13 for multiplication—that 
would give most everyone a workout. 

6*4 = ? 24 


^ 


A 


•& 



Once you’ve defined the drill, you are given random problems to 
solve. If you answer right, the computer responds “YES” but if 
you are wrong, the computer draws a picture that should help you 
figure out the right answer for next time. 

WRITING THE PROGRAM 

As usual, we can sneak up on this program, and get it working 
a section at a time. Since the program deals with four operations, 
there are four different problem-makers. The main program and 
the addition- and subtraction-maker go like this: 


1 REM ********************** MATHFAX * 

2 DIM M*(20),<1) 

5 M$=CHR$(125):M$(2)=" 

10 PRINT M*;"* MATHFAX *" 
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20 PRINT "l=add 2=subtract. 3=multiply 
4=divide" 

25 PRINT "highest operation"?:INPUT HO 
: H0= : H0~1 

30 PRINT "highest, number for addition" 

?:INPUT HA 

35 IF H0<2 THEN 50 

40 PRINT " for multiplication" 

?:INPUT HM 

50 HN=HO:GOSUB 1300:0P=R+1:PRINT H$?:0 
N OP GOTO 60,60,90,90 

60 HN=HA:GOSUB 1300:N1=R:GOSUB 1300:N2 
=R:ON OP GOTO 70,80 

70 PRINT Nl?" + "? N2?:A=N1+N2:GOTO 130 
80 PRINT N1+N2?" - Nl; : A=N2: GOTO 130 

You need something to deal with answers: 

130 PRINT " = "?:INPUT Q:IF Q<>A THEN 
160 

140 PRINT :PRINT ,,"YES" 

150 FOR T=0 TO 999:NEXT T:60T0 50 


You need a random number maker—it is exactly like the one 
now appearing in programs from cover to cover of this book: 

1300 R=INT(LN+(HN-LN+1)*RND(1)):RETURN 

Test the program, but be sure not to ask for anything harder 
than addition yet. And don’t make any mistakes! The program 
isn’t ready. 

90 HN=HM:GOSUB 1300:N1=R:GOSUB 1300:N2 
=R:ON OP GOTO 70,80,100,110 
100 PRINT Nl?" * "?N2?:A=N1*N2:G0T0 13 
0 

110 IF Nl=0 OR N2=0 THEN 90 

120 PRINT N1*N2?" / "?Nl?:A=N2:GOTO 13 

0 
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Dividing by zero is risky business; in fact, zero is tricky anywhere 
in division, so line 110 rejects any problems with zeroes in them. 

Test again—using all the operations—but you still can’t make 
any mistakes. If you do, the programs crashes. (Oh, go on, make a 
mistake, just to see what happens.) 

The capabilities of the ATARI are hardly touched by this little 
program, so let’s add a little bit of help. Most people don’t like tests 
unless right answers and maybe even hints are supplied when 
you miss. 


160 PRINT SPRINT ,, H NO H :ON OP GOTO 170 

, 165,180,180 

165 NT-N1+N2S0OTO 175 


170 NT-N2 

175 PRINT ,;:60SUB 300:PRINT 
GOSUB 300:GOTO 150 


M 

n 


NT=N1 


180 NZ=0 


190 IF NZCN.1 THEN PRINT , : NT=N2: GOSI.JB 
300:NZ=NZ+l:GOTO 190 

250 PRINT ,,"Okay";:INPUT Q$:BOTO 50 
300 NP-0 

310 IF NP<NT THEN PRINT CHR*<0>;:NP-NP 

+l:GOTO 310 

320 PRINT :RETURN 


For addition and subtraction, two lines of beads are drawn on the 
screen. To get the right answer in addition, you count all the 
beads. In subtraction, you only count the beads that aren’t paired 
in two lines of beads. For multiplication, a rectangle of beads is 
drawn. To get the right answer in multiplication you count all the 
beads—you may know a shortcut, called a “times-table.” In div¬ 
ision, you know the number of beads in one side, and the total 
number of beads, so you just need to count the side you don’t 
know. 


ADVANCED STUDIES 

A timer and a scorekeeper would make this program more chal¬ 
lenging for those of us who feel confident of our math facts. It 
would be an easy matter to borrow them from REMEMBER (p. 
43). You would need to change the “keyboard” at line 130 to one 
that uses GET 1$ and includes a timing loop. 
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TIMELINE 

historical events 


A TIME MACHINE 

The “mind of the computer” is sometimes compared to the 
human mind. The comparison is partly right. Microcomputers 
have tens of thousands of memory locations—the ATARI has 
more than 48,000, lined up in one long row, like links in a chain. 
Each link can hold (and always does) one of 256 symbols. History 
is the story that ties a long row of events together. The microcom¬ 
puter’s memory can easily be made into a perfect model of events 
in history. This program roves over the terrain of dates and events 
like a time machine we get to drive! 

Writing the program—and understanding the concepts behind 
the program—are the best part of this chapter. The part of the 
human mind lacking in the computer is the “relationship finder” 
we humans use to spot linkages between two apparently unrelated 
facts. The computer provides a smooth magic carpet to survey the 
facts, but it is not very good at noting interesting coincidences. My 
computer never said, “Did you know that the first steam-powered 
boat didn’t run up the Hudson River until 32 years after Watt 
invented the steam-engine? Is it my imagination or are things 
speeding up?” 

For a machine, whether made of flesh and blood or silicon and 
gold, to make observations like that takes a lot of smarts. Possibly 
someone who builds TIMELINE’s simple magic historical carpet 
may later make key breakthroughs in teaching intelligence to 
machines. 
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* TIMELINE * 


1000 

Leif Ericson discovers America 
1522 

first circumnavigation of the earth 
1607 

Jamestown settled in Virginia 
1620 

Pilgrims arrive at Plymouth Rock 
1756 

French and Indian War begins 


— earlier + later What next? 

TIMELINE provides a skeleton for a “terrain” of historical 
events for you to explore. You can see what happened last, 
happens next, what happened 10 years ago, what happens in 20 
years—assuming you programmed the computer to know the 
answer. Now that I think of it, the computer wouldn’t mind if you 
made up a history of the future. 

WRITING THE PROGRAM 


The program reads up to 100 dates and events and stores them 
in memory (lines 10 and 20). The main program begins at line 40, 
where it displays five adjacent events: 

1 REM ********************* TIMELINE * 

2 DIM C$(24), T$(39),A$(4000),K$(1) 

3 DIM Y(100),Z(100) 

4 OPEN #1,4,0,"K:" 

5 C*=CHRS(125):C$(2)=" * TIMEL 

INE *":PRINT C$ 

9 N=0: F'=0 

10 Z (N) ==P: READ YR,T$:IF T*="ZZZ" THEN 
30 

20 LT=LEN(T$):A*(P+1)=T$:N=N+1:Y(N)=YR 

:lt=len(T$):p=p+lt:goto 10 
30 ln=n:for n =1 to ln:print Y(N>:print 

A*(Z (N-D + l, Z (N) ) SPRINT : NEXT N:Y=3 
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40 PRINT C$:FOR N=Y-2 TO Y+2:PRINT Y <N 
):PRINT A$<Z<N-1)+1„Z(N)):PRINT : NEXT 
N 

50 PRINT ----------- 

_ ^ ^ II 

60 PRINT " - earlier +• later which 

? m ;:gosub 1000:y=y+i 

70 IF K*« M +" THEN Y=Y+3 
75 IF Y>LN-2 THEN Y=LN~2 
80 IF K**"-" THEN Y=Y~5 
85 IF Y<3 THEN Y=3 
90 GOTO 40 


1000 I-PEEK(764):IF 1=255 THEN 1000 
1010 GET #l 9 KSPOKE 764,255 
1020 K*aCHR*(K> 

1090 RETURN 


Lines 60-70 find out what you want to do next (using a keyboard 
subroutine at line 1000). Lines 80 and 90 make sure you don't run 
out of facts, then loop you back to a new display in line 40. 

There is lots of room for data in lines 100-999. Be sure you put 
your favorite facts in order. 

If you don’t have any favorite facts, here are a few of mine to 
help show you the format: 

100 DATA 1000, Leif Ericson discovers A 
merica 

110 DATA 1522,first circumnavigation o 
f the earth 

120 DATA 1607,Jamestown settled in Vir 
gi ni a 

130 DATA 1620,Pi 1grims arrive at Plymo 
nth Rock 

140 DATA 1756,French & Indian War begi 
ns 

150 DATA 1775,James Watt invents steam 
engine 
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160 DATA 1776,Declaration of Independe 
nee 

170 DATA 1770,Captain Cook discovers H 
awai i 

100 DATA 1787, LJ.S. Constitution signed 
190 DATA 1791,Bill of Rights ratified 
200 DATA 1803,Louisiana Purchase 
210 DATA 1807,Robert Fulton’s steamboa 
t up the Hudson 

220 DATA 1834,Charles Babbage’s analyt 
ical engine 

230 DATA 1846,Potato famine & U.S.-Mex 
ico war 

240 DATA 1849,California Gold Rush 
250 DATA 1858,first trans-Atlantic cab 
1 e 

260 DATA 1861,Civil War begins 
270 DATA 1865,Abraham Lincoln shot 
280 DATA 1869,Golden spikeI railroad a 
cross U.S. 

290 DATA 1888,George Eastman invents K 
odak camera 

999 DATA -1,ZZZ 

The last data line must end with “ZZZ,” or else the computer will 
give you an “out of data” error. 

That completes the program. Test, debug, and save it. 

Of course, it would be a simple matter to use a program like 
SSORT to enter data, sort it, and save it, then modify this program 
so it could be read from a storage device. 
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MI l\l I - WO M B ATS 

for word problems 


I want computer games to surprise and delight me. I invented 
Wombats* watching children “tricking” computers by typing in 
nonsense words and false names. Peals of laughter greeted 

WELL DONE, BRTL3PYX ! 

NOW TRY 3 + 5 = ?? 

Mini-WOMB ATS is a small—but expandable!—word-problem 
generating game intended for experienced and/or patient pro¬ 
grammers. WOMBATS is a small expert system; its expertise lies 
in building simple English stories that ask number questions. Its 
stories include the player, a friend, and an object of her choice. 
Which points out a problem a computer might have telling stories: 
gender! It is OK for the player to make up joke names and objects, 
but the computer should speak as elegantly as it can. Pronouns 
and verbs should agree with their nouns. (In this program, some 
do, and some don't). 

The string-handling in this program is intense, hinting at the 
incredible complexity that natural language programs will need 
to understand the languages of humans. 

The player chooses the names of the people and the things in 
the stories, and then the computer makes up number problems 
about them. 

At the beginning of play, the highest level of operations (1 - add 
to 4 = divide), the highest number for addition, and, if needed, the 
highest number for multiplication, are chosen. 

*The original version appeared in Creative Computing in October, 1981, page 216. 
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Sample dialogue (player dialogue in italics): 

Please tell me your name? Damiana 
=+=+=+=+=+=+= 

Sienna found a bag containing 7 wombats. She already has 
5 wombats at home. How many does she have now? 12 

You got it! 


Name a person? bob 
Person’s names begin with a CAPITAL. 
Remember the SHIFT key, and 
please try again, Damiana. 


Name a person? Bob 
Is Bob a boy or a girl? boy 

++ ++ ++ ++ ++ ++ ++ ++ ++ 

Name an object? flat bed truck 

=+=+=+=+=+=+= 

Bob had 13 flat bed trucks in his pocket, and later won 15 
more in a bet with Damiana. How many did he have then? 
28 

Well done. 

=+=+=+=+=+-+- 

Bob dug 4 flat bed truck traps in the forest, and caught a 
total of 36 flat bed trucks. On the average, how many did he 
find in each trap? 9 

WRITING THE PROGRAM 

Write this program in several sittings, carefully saving its parts 
after each session. The program is long and takes precise typing- 
kind of like putting a computer together from a kit. 
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The framework of the program begins with the introduction, 
which prepares the computer for the problems and tailors the 
problems to the player: 

1 REM ****************** mini WOMBATS * 

2 DIM Q* <250) , N* (16) , (32) , P$ (32) , SX* 

<12),C*(1) 

5 C$=CHR* < 125 ) : PRI NT C* 

8 POKE 702,0 

9 SX=1: P$="Si enna": J$="wombat" 

10 PRINT :PRINT "* Wombats !! *":LN=0 
20 PRINT "l=»add 2=subtract 3=multiply 
4=divide" 

25 PRINT "highest operationINPUT HO 
:H0=H0-1 

30 PRINT "highest number for addition" 

5:INPUT HA 

35 IF H0<2 THEN 50 

40 PRINT " for multiplication" 

j:INPUT HM 

50 PRINT C$:PRINT :PRINT :PRINT 
53 PRINT "Please tell me your name"?:I 
NF'IJT N* 

55 IF ASC (N$) >90 THEN GOSUB 1170 .“GOTO 
53 

60 HN=3:GOSUB 1300:IF R=3 THEN GOSUB 1 
100 

70 GOSUB 1300:IF R=3 THEN GOSUB 1200 
80 HN=HO:GOSUB 1300:OP=R+l:IF OP>2 THE 
N HN=HM:GOTO 90 
85 HN=HA 

90 GOSUB 1300: N1=R: GOSUB 1300: IM2=R: ON 
OP GOTO 100,300,500,700 

This program requires lower-case, so the POKE in line 8 makes 
sure they are on. 

The addition problems are next. Lots of string handling. The 
program builds strings using this technique: 

8 $ - b i e n n a f o u n d a b a g c o n t a i n i n q 

LEN(H 3] 

You can add more to A$ right here and that position is 
LEN(A$)+1 
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100 HN=2:GQSUB 1300:ON R+l GOTO 110,17 
0,220 

110 Qn=Pn:GOSUB 1500:Qn<Z)=" found a b 

ag containing ":GOSUB 1500 

120 Qn<Z)=STRn<Nl):GOSUB 1500:Q*<Z)=" 

": on <z+n=jn: gosub 1500 

130 Qn(Z)="s. ”:GOSUB 1400 

140 GOSUB 1500:Qn(Z)= "already has ":GO 

SUB 1500:Qn < Z)=STR$ < N2):GOSUB 1500 

150 Q$(Z)=” ":Qn<Z+l)=Jn:GOSUB 1500:Qn 

<Z)="s at home. How many does " 

160 GOSUB 1420:GOSUB 1500:0$(Z)="have 
now":GOTO 290 

170 Qn=Pn: GOSUB 1500:Qn <Z)=" had ":GOS 
ub 1500:q*(z>«str*(N i ):gosub 1500 
180 Qn<Z)=" ":Qn(Z+l)=J$:GOSUB 1500 : Q* 
(Z)="s in ":GOSUB 1480: GOSUB 1500 
190 Q$(Z)="pocket, and later won ":GOS 
UB 1500 : 0$ < Z ) =STR'4i (N2) : GOSUB 1500 
200 Qn<Z)=" more in a bet with ":GOSUB 
1500 : Qn (Z) =N$ :GOSUB 1500 
210 Q$<Z)=". How many did ":GOSUB 1420 
:GOSUB 1500:Qn <Z)="have then":GOTO 290 
220 0n=pn: GOSUB 1500:Qn<Z)=" receives 
2 envelopes. One contains GOSUB 1500 
230 0$ (Z)-STR* <N1 ):GOSUB 1 500: 0$<Z)= " 

":on(z+i)=jn :gosub 1500 

240 On(Z)="s; the other contains ":GOS 
UB 1500:On(Z)=STRn(N2):GOSUB 1500 
250 On <Z)=". How many does ":GOSUB 142 
0:GOSUB 1500:on<Z)="have now":GOTO 290 
290 A=N1+N2:GOTO 900 


P$ is the name of the current person, J$ is the name of the object. 
STR$(nl) changes a number into a text string—you may not see 
any difference, but the computer does. 

The lines from 900 to 1090 deal with right and wrong answers: 
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900 PRINT .-PRINT " = + = + = + = + =: + 
= + = + == + PRINT 
910 LQ=LEN<Q*):L1=1:L2=36 
920 IF Q$(L2,L2>=" " THEN 940 
930 L2=L2-1:GOTO 920 

940 PRINT <L1,L2>:L1=L2+1:L2=Ll+34:I 

F L2<LQ THEN 920 

950 PRINT Q$(L1,LQ)5""5 

960 INPUT Q:IF Q=A THEM 1000 

970 PRINT :PRINT "Woops! That's not ri 
ght. " 

980 PRINT "The right answer is ";A;“." 
990 GOTO 1090 

1000 HN=3: GOSUE-t 1300: ON R GOTO 1010.10 
20,1030 

1010 PRINT "You got i t. ! " : GOTO 1090 

1020 PRINT "Well done, "5N$;".":GOTO 1 
090 

1030 PRINT "That's right!":GOTO 1090 
1090 FOR LS=1 TO 12: PRINT .'NEXT LS:PRI 
NT "";:GOTO 60 


The routines that get new persons and objects go like this: 
1100 PRINT :PRINT " ++ ++ ++ ++ ++ ++ 

4+ ++ 4-4- 4-4- 4-4- 4-4-" 

1110 PRINT "Name a person";:INPUT P* 
1120 IF ASC<P*>>90 THEN GOSUB 1170:GOT 
0 1110 

1130 PRINT "Is "5 P$;" a girl or a boy" 

;:INPUT SX$:SX=0:IF SX$="boy" THEN SX= 

X. 

1140 IF SX*® ,, girl M THEM SX®1 
1150 IF SX>0 THEN RETURN 

1160 PRINT “I'm sorry. I don't know an 
y questions":PRINT “about "3 SX$p"s- FT 
ease try again.“:GOTO 1130 
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1170 PRINT "Person's names begin with 
a CAPITAL." 

1180 PRINT "Remember the SHIFT key, an 
d please" 

1190 PRINT "try again, ";N$5"„":RETURN 
1200 PRINT :PRINT " — — — — — — 


1210 PRINT "Name an obiect"5:INPUT 
1290 RETURN 

1300 R=INT < LN+ < HN-LN+1)*RND(1)):RETURN 

You spotted line 1300—a familiar face in the crowd. 

Subroutines in the 1400s supply necessary pronouns, like this: 

1400 GOSUB 1500:IF SX=1 THEN Q$<Z)="Sh 
e ":RETURN 

1410 Q$(Z)="He ":RETURN 

1420 GOSUB 1500:IF SX = 1 THEN Q$<Z)="sh 
e ":RETURN 

1430 Q*<Z)-"he ":RETURN 

1440 GOSUB 1500: IF SX = 1 THEN Q*(Z)="he 
rs ":RETURN 

1450 Q*<Z)=»"his ": RETURN 

1460 GOSUB 1500: IF SX=*1 THEN Q4s<Z)="he 

r »:RETURN 

1470 Q$(Z)="him ":RETURN 

1480 GOSUB 1500:IF SX=1 THEN Q$(Z)="he 

r ":RETURN 

1490 Q$ < Z)“"his ":RETURN 
1500 Z=LEN(Q$)+1:RETURN 

With these modules intact, you should be able to test the pro¬ 
gram, but only in first gear: addition. When you have everything 
operating correctly, we can move on to the three other operations. 


66 





Subtraction: 


300 N2»N1+N2:HN=2:GOSUB 1300:ON R+l GO 


TO 310,340,400 

310 Q$=>F'$: GOSUB 1500:Q$<Z>=" hides ":G 
OSUB 1500:Q$(Z)~STR$(N2):GOSUB 1500 
320 Q$(Z)=" " : Q$ < Z +1) = J$: GOSUB 1500: <3$ 
(Z)="s, and you find GOSUB 1500 
330 Q*<Z)=STR$<N1> : GOSUB .1 500: Q$ ( Z) =" . 

How many are still hidden":GOTO 490 
340 Q$=F'$: GOSUB 1500: Q* (Z) =" had too m 


any ": GOSUB 1500: Q$ < Z) *,3$: GOSUB 1500 
350 Q$(Z)="s and gave you ":GOSUB 1500 
:Q$(Z > =STR$(N2):GOSUB 1500 


360 Q*<Z)=". Later, ":GOSUB 1420:GOSUB 
1500:Q*<Z)*"lost all of them, " 

370 GOSUB 1500:Q$(Z)="and you kindly g 
ave ":GOSUB 1500 

380 Q$<Z)=STR*<N1):GOSUB 1500:Q*<Z>=" 
back- How many do you still have":GOTO 
490 

400 Q$="Yesterday, ":GOSUB 1500:Q*<Z>= 

PH>: GOSUB 1500:O*(Z) = " bought ": GOSUB 1 
500 


410 Q*<Z)=STR*<N2> : GOSUB 1 500: Q* ( Z) =*" 
":Q*<Z+1)=J$:GOSUB 1500 

420 Q*<Z)="s, but this morning ":GOSUB 
1420:GOSUB 1500 

430 Q$<Z)="could only find ": GOSUB 150 
0:Q* < Z >=STR*(N1):GOSUB 1500 
,440 Q$(Z)=“- How many were missing": GO 
TO 490 

490 A=N2-N1:GOTO 900 
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Multiplication: 


500 HN=2:GOSUB 1300:ON R-H GOTO 510,56 
0,600 

510 Q$=P$:GOSUB 1500:Q$<Z) ■" won " : 60S 
UB 1500:Q$(Z)-STR*(N1):GOSUB 1500 

520 Q$(Z)=" coupons at the -fair. ": GOS 
UB 1400:GOSUB 1500 

530 Q$ (Z) “"exchanged each coupon -for " 
: GOSUB 1 500:Q$( Z)=STR$ ( N2) : GOSUB 1500 
540 Q$<Z)=" ":q$<z+1)=j$:gosub 1500:0$ 
<Z)="s. How many does ":GOSUB 1420 

550 G0SUE< 1500: 0$ (Z) ="have now" : GOTO 6 
90 


560 Q$=P$:GOSUB 1500:0$ < Z > = " 
achine to make ":GOSUB 1500 


built a m 


570 0$(Z)=J$:GOSUB 1500:Q$(Z)="s. It h 
as made ":GOSUB 1500 

580 0$<Z)=STR$(N1):GOSUB 1500:Q$(Z)=" 
each day tor ":GOSUB 1500:Q$(Z)=STR$(N 

2 ) 

090 GOSUB 1500:0$(Z)—" days. How many 
has it made":GOTO 690 

600 G$="A tlying saucer deposits ":GOS 
UB 1500:0$(Z)“STR$(N1):GOSUB 1500 
610 Q$(Z)=" silvery spheres in ":GOSUB 
1500:0$(Z)=P$:GOSUB 1500 


620 0$ <Z)="’s back yard, and GOSUB 1 
500:Q$(Z >=STR$(N2):GOSUB 1500 


630 Q$(Z)=" 0$<Z+1)=J$;GOSUB 1500:0$ 

jumped out of each one. How man 

y " 

640 GOSUB 1500:Q*<Z)«J*:GOSUB 1500:Q*< 
Z)= M s are rampaging around 11 : GOSUB 150 

0 

650 < Z ) : GOSUB 1500: Q* (Z ) «•' ’ s hous 

e right now“:G0T0 690 
690 A-Nl*N2:GOTO 900 
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Division: 


700 IF N1“0 THEN HN=HM: GDSUB 1300:N.t=R 
:GOTO 700 

710 N2=N1*N2:HN=2:GOSUB 1300:ON R+l GO 
TO 720,770,820 

720 Q*=P*: GOSUB 1500: Q* <Z) =»" dug " : GOS 
UB 1500: Q* (Z) -BTR* (N1): GOSUB 1500 
730 Q$(Z)=" ":Q*<Z + 1)=J*:GOSUB 1500:Q* 
<Z)*=" traps in the forest, and caught 
a total of " 

740 GOSUB 1500:Q*<Z)«STR*<N2):GOSUB 15 

00:Q*(Z)«" ":Q*<z+i)=j*:gosub 1500 

750 Q*<Z)="s. On the average, how many 
did ":GOSUB 1420:GOSUB 1500 
760 Q*(Z)="find in each trap":GOTO 890 

770 Q*=P*:GOSUB 1500:Q*(Z>=" buys a pa 
cket with ":GOSUB 1500:Q*<Z)=STR*<N2) 
780 GOSUB 1500:Q*(Z>=" " : Q* ( Z. +1 ) = J *: GO 
SUB 1500:Q*<Z)=" seeds in it. The dire 
ctions tell " 

790 GOSUB 1460:GOSUB 1500:Q*(Z)="to pi 
ant ":GOSUB 1500:0*<Z)=STR*<N1>:GOSUB 
1500 

800 Q*(Z)=" in each hole. How many hoi 
es should ":GOSUB 1420:GOSUB 1500 
810 Q*(Z)="dig":GOTO 890 
820 Q*=P*:GOSUB 1500:Q*<Z)=" shared ”: 
GOSUB 1500: (3$ ( Z ) =STR* (N2) : GOSUB 1500 
830 Q*<Z>=" ":Q*(Z+l)=J*:GOSUB 1500:0* 
<Z)“"s with ”:GOSUB 1500:0*(Z)=STR*<N1 
-i> 

840 GOSUB 1500:Q*<Z)=” of ":GOSUB 1480 
:GOSUB 1500 

850 0*<Z)*"friends. How many did each 
get":GOTO 890 
890 A=N2/N1 
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I left one particularly glaring grammatical error in: Bob had 1 
flat bed trucks in his pocket...Could someone please write a few 
lines of code to trap that error? 

There is room for adding more questions, and a simple score- 
keeping section, with a display of the score from time to time. The 
original version of the program also had a diagnostic section for 
teachers: the ability to print the problems as they were solved and 
summaries of problems solved, and an extensive HELP capabil¬ 
ity. Interested programmers should look up that classic October 
1981 edition of Creative Computing. 
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The last six chapters are about tools you can build to use your 
computer for more serious (and helpful) jobs: as a number and 
data-cruncher. 

The programming is no trickier than in earlier chapters, but 
some of the programs often consist of more modules, complex 
looping, and other precise code. If at first it makes no sense, read 
the chapter over again. Sleep on it. Understanding will dawn. 

Be prepared to start thinking about all the great ways you can 
rewrite these programs to do all manner of other useful things. 
The nicest thing about computers is that they are willing to try 
anything twice. 
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PAINT 

electronic crayons 


The computer makes a wonderful set of electronic color 
crayons. And it’s fun to see our own pictures on the TV screen for 
a change! Using this program, anybody can doodle. 

For the programmer, there are two challenges: this program 
fiddles with color commands and saves and retrieves data with 
tape or disk. Fortunately, you can take on one challenge at a time. 

They say a picture is worth a thousand words. 

PAINT gives the player control over the color video capabilities 
of the ATARI, to create pictures and illustrations using colored 
squares. This turns out to be an enjoyable way to gain mastery 
over the ATARI’S cursor control keys, while making pretty 
pictures. 


PLAYING THE GAME 

When the program starts, your “brush” is the block in the mid¬ 
dle of the “paper.” You can move it up, down, left, and right, using 
the cursor keys in the lower right-hand corner of the keyboard. To 
get the “brush” where you want it takes practice. 

Fortunately, you can practice moving the brush all you want 
without making a mark on the paper. When you’re ready for 
paint, you press the space bar, and the brush begins depositing 
color wherever it moves. You can change the brush’s color by 
pressing the number keys at the top of the keyboard—only 1, 2, 3, 
and 0 work, because there are only four colors in this GRAPHICS 
mode. Color 0 is the background color, and is useful for erasing. 
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After some practice, you will be able to interlace colors easily, 
turning your brush on and off using the space bar with precision. 
If you’ve spoiled a painting beyond retrieval, you can zap it—just 
press Z and then Y. 

You can save a painting by pressing <S>. There is lengthy 
number-crunching involved, turning the colored picture into terms 
the computer knows how to save—it takes about a minute, so be 
patient. You can tell where the crunching is taking place by the 
line of blocks descending the left margin of your picture. As soon 
as the crunching is done, the computer asks for a name for your 
picture. 


- ATARI notes _ 

Saving files to disk 

When choosing a name for a painting, program, or anything else you 
plan to save, it’s a good idea to make the name as descriptive as possible, 
so when you look at the disk directory you will know what each file is. 
And another thing: when you plan to save several versions of a file, 
number them—BOAT1, BOAT2, BOAT3—and keep track of the last 
number you used. 

Saving files to tape 

The programs in this book use the input/output commands for a disk 
drive system, but all can be adapted to work with tape storage, too. Tape 
commands are usually simpler than disk commands. Please check the 
details in your ATARI manuals. 


If you have a painting saved, you can load it by pressing <L>. 
The program asks for the name of the file to load. (If you tell it a 
file that isn’t there, it will give you an error message.) 

You can adjust the color and luminance of your four colors by 
pressing <C>. The current color will be changed to grey. Press the 
<+> and <-> keys until you have found your desired color, then 
press <RETURN> to accept it. The color will then be changed to 
the lowest luminance. Again, press <+> and <-> until you have 
the desired brightness, then accept it by pressing <RETURN>. 

You can quit the program at any time by pressing <Q>. 
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WRITING THE PROGRAM 


The main framework of PAINT is quite simple. 


1 REIN ************************ PAINT * 

2 GM«3:MX«39SMY*23 

3 DIN K*<1> P E*(B),F*<14>,S*<MX),P*(MX* 
(MY+1) ) 

4 OPEN #1,4,0,"K: H 

5 GRAPHICS GN+16:X-MX/2:Y«MY/2:PC=1:CO 
LOR 1 

9 CF«1 

10 cf=pc:gosub U00:gosub 1000 


20 

IF 

K=45 

THEN 

Y=Y~l:IF 

Y< 0 THEN Y=0 

30 

Y 

40 

IF 

K=61 

THEN 

Y=Y+1:IF 

Y >MY THEN Y=M 

IF 

K=43 

THEM 

x=x - -1:IF 

X<1 THEN X~1 

50 

X 

60 

IF 

K=42 

THEN 

X----X+1: if 

X >MX THEN X=M 

IF 

I.-' — TO 
ix — •_* y.~ 

AND PF=1 THEN 

PF=0:GOTO 70 

65 

IF 

K=32 

THEN 

PF= 1 


70 

IF 

K >47 

AND H 

:<52 THEN 

pc:~k~-48: CF=PC 


190 GOTO 10 


The first few lines clear the screen and set the brush in the middle 
of the paper. The main program starts at line 10. The group of 
lines which all begin IF K= deal with each possible key pressed— 
lines 20-50—decode the cursor keys, and change the X-Y position 
of the brush in accordance with the player’s commands. Lines 60 
and 65 toggle—switch on and off—the brush. Line 70 takes a 
number and translates it into a new paint color. 


1 me 
1010 
1030 
1040 
1050 
1080 
1090 
1 100 
RANT 
1 1 90 


I-PEEK(764):IF 1=255 THEN 1 
GET #l,K:POKE 764,255 
IF PF=0 THEN CF=OC 
IF PF==1 THEN CF=PC 
GOSUB 1100 
K*=CHR*<K> 

RETURN 

L O C A T E X , Y , G C: C O L O R C F: P L. O T 
0 X , Y 
RETURN 


X, y:d 
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Subroutine 1000 is the “keyboard,” which gets the next com¬ 
mand from the player. Subroutine 1100 places a brushstroke on 
the screen. 

With this much of the program entered, you can make pictures, 
and make sure everything is working right so far. Remember: in 
programming, a keystroke out of place is like a needle in a hay¬ 
stack. The real fun is getting clues from a program that is not 
quite working and eradicating those stubborn bugs. 

The save module contains some fancy business to accommo¬ 
date the ATARI’S storage scheme: the painting must be translated 
into a long string of numbers that can be stored like text. 

300 GQSUB 400 


310 

320 

IX" 


PRINT "FILE TO- SAVE"INPUT E* 
F$= " D: " : F$ (3) =E$: F$ (L.EN (F$) +1 ) 



P 


30 OPEN #2,8,0,F$ 


340 FOR SY=0 
, PP+38) .'PRINT 
350 PRINT #2; 


TO MY: PP~1 +MX*SY: SiT.=P$ (PP 
#2;S$:NEXT SY 
"ZZZ":CLOSE #2 


390 LX=MX:LY=MY:GOSUB 600: GOTO 10 


400 pp=i:for sy =0 to my: for sx-i to mx 

410 LOCATE SX , SY, P: P$ (PP) ==STR* (P) : PP=P 
P+1 


420 NEXT SX 

430 PLOT 1 5 SY:COLOR 1:DRAWTO 1 , SY 
440 NEXT SY 
490 RETURN 

If you can save, you should be able to load, too: 


500 PRINT "FILE TO LOAD";:INPUT E$ 

510 F*= " D: " : F$ (3) =E$: F$ (L..EN < F$ > +1> =".P 
IX" 


520 OPEN #2,4,0,F$:LY=0:PP=1 

540 INPUT #2; Sit: IF S*="ZZZ" THEN 580 

550 P$(PP)=5$:LX=LEN(S$):PP=PP+LX 

560 LY^LY+l:GOTO 540 

580 CLOSE #2:LY=LY--1 

590 GOSUB 600:GOTO 10 


600 GRAPHICS GM+16: F-'P— 1: FOR SY-0 TO LY 

:for sx=i to t_>: 
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610 CF=VAL<P*(PP,PP)):COLOR CF 
620 PLOT SX,SY;DRAWTO SX,SY:PF-PP+1 
630 NEXT SX;' NEXT SY 
690 RETURN 

We need to be able to clear the screen for a new painting, so a 
zapper looks like this: 


MX:LY=M 


800 GOSUB 400:PRINT "ZAP IT"? 

810 INPUT K$:IF K$="N" THEN LX 
Y:GOSUB 600:GOTO 10 
890 GRAPHICS GM+16:G0T0 10 

You also need to be able to quit: 

900 GOSUB 400:PRINT "QUIT":INPUT K$:IF 
K$="N" THEN LX=MX:LY=MY:GOSUB 600:GOT 
0 10 
990 END 

And changing color and luminance is accomplished by these 
lines: 


200 CV=0:PV=PC~1:IF PV<0 THEN PV=4 
21 0 SETCOLOR PV,CV,6:GOSUB 1000:IF K=1 


□□ THEN 250 


vJ 1 1 
O ' r '> 


220 IF K$="+" THEN CV-CV+lJlF CV>15 TH 
EN CV=15 

230 IF K$="--" THEN CV=CV-l:lF CV<0 THE 

N CV=0 

240 GOTO 210 

250 LV=0 

260 SETCOLOR PV,CV,LV:GOSUB 1000:IF K= 
155 THEN 10 
270 IF K 
EN L.V= 14 


™ " 4- " 

THEN 

LV=LV+2: 

IF 

LV > 14 

TH 

M_II 

THEN 

l.V-L.V-2: 

IF 

L.V< 0 

THE 

260 

>="Q" 

THEM 

900 





N LV=0 
290 GOTO 260 


90 IF K$="Z" THEN 800 
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1 00 

IF 

K*="S" 

THEM 300 

1 10 

IF 

K$=: "L " 

THEN 300 

120 

IF 

K$* M C H 

THEN 200 


ADVANCED TOPICS 

Another way to “save” a picture is by photographing it. You 
need to have a camera that can be set for long exposures, because 
the light from a TV is weak, and a short exposure may have bars 
across the screen. 

Before you push the shutter-release button, make sure of the 
following points: 

• Eliminate screen glare. (If you can see a reflection of a window, 
or a wall, or yourself, you can be sure it will be in the photo¬ 
graph, too. Change the lighting. Taking your picture after dark 
in a darkened room may be the best way.) 

• Fill the frame and make sure it’s sharply focused. (If you can’t 
get close enough, don’t waste film. Borrow a camera with a 
longer lens.) 

• Use a tripod or make a steady stand for your camera. (Humans 
move a lot in half a second. You may even need to ask people to 
be motionless while you make your picture, so the house doesn’t 
shake.) 

• Adjust your TV for its crispiest, juiciest image. (What looks good 
through the camera may be different than what’s easiest to 
work with on the screen.) 

• Bracket your exposures. Try several different exposure times, 
from as short as l/60th of a second to as long as 2 seconds. 
Experience is the best teacher. 
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BARS 

plot data with a bar graph 


Computer graphics are exciting, as we can tell from prime-time 
TV, fantasy movies, and arcade games. Plotting graphs is a less 
exciting cousin of the flashy displays we sometimes see, but it is 
an excellent use for the computer. It is often easier to see relation¬ 
ships and judge their meaning if we can view them graphically: 


SEMESTER GRADES 

1 2 3 4 5 



ENGLISH 



MATH 


• ooocoooocooococcocoocoococcoooooccooccoc:• ocooooocnocoocc c oo o< 
:h)ocooooocc!()o o o c o e o o o c c o o c c a o o o o c oooc c o o o o c o o cooccooooo o a o o o 

• C> O Q C OO O C C OOO O O G C 0 0 0 0 e O O O O C C O O OOOCOOOCOOOO C C O O OOOCOCOOOCOCOOt 
O O G G O O O O O C C O OOO C C O G O O U CCOOCO O DOOOOOOOC O O OOOC O COOCCOOOOO c O O O o 
‘OOOOOOOOOCO O OOOC Cl oooocooo o c o c O OOOCOOOCUOOOCO O O O Ci C: OOOCOOdCOOC 
0000000000001)0 O O O OOOO O COOOOO O COQCOOCO C C o OOCCOOO O CCCCOOOOCC o o 

SCIENCE 



SOCIAL STUDIES 



•OOCOCOO O O O O G O OOC C C c> O O o 
OOOCO 0OO O O O G 0000008o oo: 
•OOO O C O O O O O O C O O O Z C o 3 o o o 
D o o o o :: coon o 3 3 o o o o o c ooc c 

■OOO O C O O OOOO O O O O C G G G O O 3 

0 oooo oooo o o o n r; 15 o 0 00000c 


o oooo o y 000000 o o oo o o 000000 o o o o o o o o o o < 

j C O O O C C o O O O O O O O O 0 01)00000000 O O O O <: o oooo 
O O O O O G G ;) O G COOOCiOSOOO O O O O O O O O OOOOOO O O < 
> O O O C C G O O O C O O O O O G O O OO OOOOOO OOOO O O (.'>000 
o o c o o o o o o r> o o o o c c 000000000000000 o o o o 1 

'■ O O O C O C- O O O G O s) O O O O O o o coooooooooo o o o o o 


BAND 
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Get the picture? For the programmer, this program is a breeze. 
It includes a new trick—using the printer—but it works fine with¬ 
out a printer. 

BARS lets the user translate numerical data into bar graphs on 
the computer screen. The screen can handle up to seven bars, and 
a large range of possible numbers, and graphically represent the 
relationships between the different classes. 

There are four possible different versions of BARS, like this: 

Input Data 

screen BARS BARS2 

printer BARS3 BARS4 

The screen version displays the graph on the video screen, while 
the printer version prints it on a printer. The INPUT version asks 
the user to put the data in each time the program is run; in the 
DATA version the data is part of the program, so a graph is 
drawn automatically when the program is RUN. 

All versions of the program require scaling information: what 
is the lowest number you will show on the graph? the highest 
number? How many bars will you show? and what is the overall 
title for your graph? The program works with data pairs—a title, 
and a number, like 

UbA,b9 

which represents the life expectancy of a male born in the United 
States. When you sit down at the computer to generate a bar 
graph, you will need to know all the data. 

WRITING THE PROGRAM 

The second version is the easiest on the programmer, because 
you won’t have to keep giving the computer data for the graph, so 
we start writing there: 

1 REM ************************* BARS * 

2 DIM C*<40),B*<7>,T*(3B),S*(38),A*<26 
h) 

3 DIM L(7) ? F <7) 

5 C*«CHR*(125):C*<2>«" * BARS *" 

:PRINT C* 
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10 READ B:IF B——1 THEN 30 

20 B* (LEN (E<$) •+• 1) =CHR3> (B) : BOTO 10 

30 READ LN 

40 READ HN 

50 READ NB 

60 READ T*:LT=LEN<T$>:M=<38-LT)/2:C*<1 

+M)=T$ 

70 P=0:N=0 

80 READ S$,V:L(N)=V:LS=LEN(S$):P<N)=P: 

a$ (P+i) =s$: p(N) =p: p*p-+ls: n~n+i : if n<nb 

THEN 80 
90 P(N)~P 

This section is a simple series of READs that get DATA from 
anywhere in the program. Lines 10 and 20 read the characters 
that get translated into bars on your video screen. Lines 30-90 read 
the data for your particular graph—low number, high number, 
number of bars, title string, and an individual title-string for each 
bar. 

We can build a program in any order, so let’s do the DATA next: 


900 DATA 
910 DATA 
920 DATA 
930 DATA 
940 DATA 
950 DATA 
960 DATA 
970 DATA 
980 DATA 


0,8,10,19,79,88,123,-1 
0,75,6 

LIFE EXPECTANCY - MALES 

USA,69 

COLOMBIA,44 

NORWAY,71 

JAPAN,71 

INDIA,42 

AUSTRALIA,68 

r 


Line 900 contains the codes for the letters that make up the bars. 
The -1 at the end tells the READ statement in line 10 that it has 
read all the color controls and can go on to the next part. Line 910 
contains the low number, high number, number of bars, and title. 
The next six lines contain the specific titles and data. (Of course, 
there is nothing magical about my data—use any data you want.) 
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The bar-drawing code is next: 

100 POKE 752,1:PRINT C*:PRINT 
110 1= (HN-LN) /5: IE<=36/ <HN~LN) 

120 FOR N=0 TO 5:PRINT INT <LN+ <N*I) ) ; " 

";:next n:print 

130 PRINT :FOR BN=0 TO NB-1 

140 FOR L=1 TO L(BN)*IB:PRINT B$(BN+1, 

BN+1);:NEXT L:PRINT " "5L <BN) 

150 PRINT A*(P(BN)+1,P(BN+1>):PRINT :N 
EXT BN 

200 GOTO 200 

Lines 120-130 draw the reference line that tells what the bars 
represent. If these numbers turn out strangely, you can adjust the 
high number and low number to make them more pleasing. The 
POKE in line 100 turns off the cursor, so all you see on the screen 
is your graph. 

By the way, what in the world does line 200 do? It’s easy to find 
out: take it out, RUN the program, and see what happens. 

The program is done. Test and debug it before we move on to 
three more versions. And be sure to save this version if you want 
to use it again. 

To make the “plain vanilla” version of BARS, all you need to do 
is change six lines at the beginning of the program, so they look 
like this: 

30 PRINT "LOW NUMBER"?:INPUT LN 
40 PRINT "HIGH NUMBER"INPUT HN 
50 PRINT "NUMBER OF BARS";:INPUT NB 
60 PRINT "TITLE FOR GRAPH"INPUT T$:L 
T=LEN(T*> :M=(38-LT) /2: C* < 1+M) =»T* 

70 P=0:N=0 

80 PRINT "BAR ";N+1;" TiTLE"j:INPUT S$ 

: LS=LEN (S*) : P (N) =P i A* (P+1) =St>: P (N) =P: P 
=P+LS 

85 PRINT " VALUE";:INPUT V:L <N)=V 

:N=N+1:IF N<NB THEN 80 
90 P(N)=P 
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This version of the program allows you to explore the bar¬ 
graphing possibilities and plan your graphs carefully before sav¬ 
ing them. 


PRINTING THE BAR GRAPH 

SEMESTER GRADES 

0 12 3 4 

88 B8BB8B8B8888888SS888B8B 3.6 
ENGLISH 

############################ 4 

MATH 


*********•****■**■■#•*•*•*•#■* 3 
SOC SCI 


HHHHHHHHHHHHHHHHHHHHHHH 3 
PE 



+++++++++++++++++4"f+++++++++ 4 
CHEMISTRY 

XXXXXXXXXXXXXXXXXXXXXXXXX 3.6 
SPANI5H 


It is easy to “hardcopy” your graph with a printer. It just takes 
a print module: 

240 LPRINT :FDR BN=0 TO NB-1:T$“"" 

250 FOR L-l TO L<BN>*IB:T*<LEN<T$)+1)= 

P$(BN+1„BN+1):NEXT L: T* (LEN <T$) +1 )*" " 

: T$ <LEN <T$) +1) =STR$ <L <BN) ) : LPRINT T* 

260 LPRINT A*<P(BN)+1,P<BN+1)):LPRINT 
:NEXT BN 
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900 DATA 0,8,10,19,79,88,123,-1 
990 DATA 56,35,42,72,159,88,78,-1 

200 PRINT “PRINT IT";:INPUT Q$:N=0:LPR 
INT T$:LPRINT 

210 READ P:IF P=-l THEN 230 
220 P$ (N+l ) =CHR* <P) : N==N+1: GOTO 210 
230 T*="":FOR N=0 TO 5: T$(LEN (TUO +1 )=S 
TR$(INT < LN+(N*I))):T«(LEN < T$)+1) = " 

" :next n.-lprint T$ 

Line 200 replaces the earlier line (that swallowed its own tail) with 
a query. Lines 210 and 220 read the codes to make graphic blocks 
on the printer. Line 990 contains those codes. 

Now that you have three versions of the program, it’s an easy 
matter to borrow the lines between 200 and 300—and don’t forget 
line 990. While you’re about it, you might play with some of the 
other codes your printer can make—you might think they look 
better on your graphs. 

In programming, especially in BASIC, we should not concern 
ourselves with what should be, but only with what works. 
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SORT 

elementary data processing 


Computers may not be good at noticing unexpected relation¬ 
ships, but they are superb at working with lists. A lot of paper¬ 
work consists of taking a list organized in one way and reshuf- 
lling it. In this chapter, you will write a program that accepts lists 
of random data and puts them into alphabetical order. 

The programmer will teach the computer to remember, sort, 
display, save, retrieve, and print data, useful skills for any 
computer. 

SORT is a simple program for alphabetizing a disorganized 
list. The SORT routine itself is short and easily understood, and 
can be used in other programs. In fact, it is used again in the 
hot-rod version of SORT at the end of this section, and in DATE- 
BOOK and ORGANIZE in the final section of the book. 

SORT is menu-driven—you are presented with a list (a menu) of 
options you can choose. You will usually start by choosing the 
first option, ENTER DATA, because the program doesn’t do any¬ 
thing very interesting until it has some data to sort. You enter 
data one piece at a time (a single piece of data is called a datum) 
until you’re done. When you’ve entered all the data you want to 
sort, you use the computer’s escape code, ZZZ, and the menu 
reappears. 

Once the computer has some data to play with, you can choose 
option 3 to DISPLAY your entries, or option 2 to SORT them. If 
you choose to SORT, your data will flash by as it is manipulated 
by the computer. This program assumes you won’t have hundreds 
of pices of data to sort, and so it uses a simple, inefficient sorting 
technique. 
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SuperSORT, the upgraded version of the sorting program, adds 
several more options: you can SAVE, LOAD, PRINT, and 
CLEAR your data. 

WRITING THE PROGRAM 

If you have been working through this book a section at a time, 
there will be nothing very surprising in this program. It breaks up 
easily into the MENU/Control module, the SORT module, and the 
DISPLAY module. 

The MENU module: 

1 REM **************** ********* SORT * 

2 DIM A$(4000),D$(4000) , I $ < 1) ,B$(40),C 
$ (40) , M$ <40) , Q$ (1) , T* (40) 

3 DIM L<100),M<100),S(100) 

4 OPEN #1,4,0, "K: " 

6 PRINT CHR$ (125) : N=1: LD J =40 
8 FOR N=1 TO LD:M$<LEN<M*)+1)=" ":NEXT 

n:n=i 

10 PRINT ,"SORT" 

11 PRINT "l: ENTER DATA" 

12 PRINT "2: SORT" 

13 PRINT "3: DISPLAY" 

19 PRINT "9: QUIT" 

20 PRINT ,"OPTION";:INPUT Q 

30 ON Q GOTO 100,200,300,10,10,10.10,1 
0, 900 

40 GOTO 10 

This section reminds you of your choices, and sends program con¬ 
trol off to the other modules when you have chosen. 

The ENTER DATA section uses another version of the key¬ 
board subroutine: 

100 PRINT "ENTER DATA III TO Q 

UIT" 

110 print n; :gosub 1000:print 

120 IF T$—"ZZZ" THEN ND^N-l'GOTO 10 
130 A$ (1+LD* (N-l) ) =>T$: L <N) =LEN (T$) -1 
140 N=-N+1: GOTO 110 
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900 PRINT "DONE":END 
1000 T$="” 

1010 I=PEEK(764):IF 1=255 THEN 1010 
1020 GET #l,K:POKE 764,255 
1030 IF K=155 THEN RETURN 
1070 I*=CHR*<K):PRINT 1$; 

1080 T*(LEN(T$)+1>=I* 

1090 GOTO 1010 

You can “test-drive” your program now, to see if it is getting data 
into the string array A$(n). Check by QUITting and asking the 
computer to show you your A$ like this (remember, no line 
numbers): 


PRINT fi$ 

The SORT module looks like this: 

200 PRINT "SORTING":FOR N=1 TO ND:S(N) 

=i:next n:pl=i 

210 N=1 

220 IF S(N>=0 THEN N=N+l:GOTO 220 
225 p=n+i:ln=n:sp=i+ld*(N-i):b$=a$ <sp, 

SP+L(N) ) 

230 IF S(P)=0 THEN 260 

240 SQ=1+LD*(P-1):C$=A$(SO,SQ+L(P)):PR 
INT B$,C*,:IF BSKC* THEN 260 

250 t$=b$:b$=c«:c$=t*:ln=p:print "swap 

PING" 5 

260 PRINT :P=P+l:IF P<=ND THEN 230 
270 SY=1+LD*(PL-1):D$(SY)=B$:N(PL)=LEN 
< > -1:PL=PL+1:S(LN)=0:IF PL=ND THEN 2 

80 

275 GOTO 210 

280 SY=1+LD* ( ND-1 ): D$ < SY )=C$:M( ND ) =LEN 
(C*>-1 

290 PRINT " = = = DONE = = =":A$=D$:FO 
R N=1 TO ND:L(N)=M(N):NEXT N 

The real work takes place in lines 240 and 250: Line 240 decodes 
each datum and compares it with each of the data entered after it, 
and if it is less than a later entry, line 250 pops the first datum into 


88 



a temporary string, pops the later datum into the earlier position, 
and then shuffles the former datum into the latter’s position. All 
the PRINTing in this module is diagnostic—so you can see the 
work taking place inside the computer, and find out what’s wrong 
during debugging. Programmers often insert PRINTs and STOPs 
to help find programming problems, then take them out when the 
program is running smoothly. If you take out the diagnostics— 
that would be parts of lines 240,250, and 260—the routine will sort 
lists faster, because the computer won’t have to work so hard. 

The DISPLAY module is simplicity itself: 

300 FOR N=1 TO ND 

310 SP*= 1+LD* (N-1) : PR I NT N; " M 5 A*(SP,S 

P+L (N) ) 

320 NEXT N 

390 PRINT , , "MENU"?.: INPUT Q*:GOTO 10 

With these lines programmed in, SORT should do everything 
advertised. 

But wouldn’t it be nice if you could SAVE lists, and LOAD 
them, and PRINT them, and MODIFY them? Read on. 
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SUPERSORT 

a list-organizing tool 


MAKING A TOY INTO A TOOL 

SuperSORT is a junior version of the most important data- 
management tool known to man or computer: the systematic list- 
reorganization utility. When you get down to it, much of the work 
computers do centers on taking a list of data in one order— 
alphabetical, perhaps, so that the subscription clerk at the local 
newspaper can make sure names, address, and most important, 
the expiration date, are all correct—into another order—a carrier- 
route sort for the postal folks, so that the newspapers can be dis¬ 
tributed efficiently to the subscribers. 

In addition to ENTERing, DISPLAYing, SORTing, and QUIT- 
ting the way you can in SORT, you can now also SAVE, LOAD, 
PRINT, MODIFY, and CLEAR your data. In other words, you 
can do all the things one generally needs to do with data. To do it 
well, you will need a disk drive. 

UPGRADING THE PROGRAM 

The menu now looks like this: 

1 REM *#*************#-**-****-**#SSORT * 

2 DIM A* (4000) ,D*(4000) , I*<1) ,B*<40> ,C 
*(40),M*(40>,Q*(l),T*(40),E$(8),F*(14> 
,CL*(1> 

3 DIM L(100),M(100) , S (100) 

4 OPEN #1,4,0,"K:" 

6 CL*<=CHR* (125) : PR I NT CL* 

9 n=i:ld=40:boto 800 


90 



10 

PR I NT 

M 

!» 

SORT" 



11 

PRINT 

"l: 

ENTER DATA" 


12 

PRINT 

It o " 

««L m 

SORT 

6: 

PRINT 

13 

PRINT 

If T • 
w 1 m 

DISPLAY 

7: 

EDIT" 

14 

PRINT 

"4: 

SAVE 

8: 

CLEAR- 

15 

PRINT 

II sr m 
w m 

LOAD 

9: 

QUIT " 

20 

PRINT 

II 

9 9 

OPTION";: 

INPUT 

Q 


30 ON 0 GOTO 100,200,300„400,500,600,7 

00,800,900 

40 GOTO 10 


The lines between 200 and 390, the ENTER, SORT, and DIS¬ 
PLAY modules, are exactly as in SORT. 

The SAVE and LOAD modules can sensibly be entered 
together: 

400 PRINT ,"FILENAME FOR SAVE"5:INPUT 
E* 

410 F*="D: ":F$(3)=E*:F$<LEN<F*)+1)=".D 
TA":OPEN #2,8,0,F* 

420 FOR N=1 TO ND 

430 SP= 1+LD* (N-l) : T*=A$ (SP, SP+L. <N> ) : PR 
INT #2?T$:PRINT ">";T$ 

440 NEXT N:PRINT #2;"ZZZ":CLOSE #2 
490 GOTO 10 

500 PRINT ,"FILENAME TO LOAD"?:INPUT E 
$ 

510 F*="D:":F*<3)=E$:F$<LEN<F*)+1>=".D 
TA" : OPEN #2, 4,0, Ft* 

520 INPUT #2,T$:IF T$="ZZZ" THEN 590 
530 SP=1+LD*(N—1):A$(SP)=T$:L(N)=LEN(T 
*) -1 

535 PRINT "<"?T$ 

540 N=N+1:GOTO 520 

590 ND=N-1:CLOSE #2:GOTO 10 


Lines 410 and 510 inform the intelligence within the disk drive 
what kind of file to expect. The program uses buffer number two, 
and F$ tells it the name of the file. The other numbers in the 
OPEN statement contain details for the machine—the 8 in line 
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410 prepares to write to the disk, while the 8 in line 510 prepares to 
read from the disk. With that information established, the pro¬ 
gram can then assume that the storage device will save anything 
PRINTed to buffer #2, or will provide reliable data when asked to 
INPUT from buffer #2. (There is no magic to the number 2, use 
any reasonable number. If it's unreasonable, be assured that the 
computer’s BASIC interpreter will complain.) 

The SAVE module writes (line 440) a final word, ZZZ, after your 
last datum but before closing the file, to mark the end of the file. 
The READ module reads from the disk until it encounters the 
end-of-file marker ZZZ. 

To convert this program for tape input/output, please consult 
your ATARI manuals. 

PRINTing your list requires this code: 


600 PRINT “PRINT LINE NUMBERS <Y/N>’*j: 
INPUT 

610 FOR N=1 TO ND 

620 IF Q*<> B, Y" THEN 640 

630 SP=1+LD*(N-1 > SLPRINT N$ 11 " ;A*(SP, 

SP+L <N)>:GOTO 650 

640 SP=1+LD*<N~1> ZLPRINT A$> (SP, SP+L (N) 
) 

650 NEXT N 
690 GOTO 10 


You can print your list with or without line numbers, like this: 


with line numbers without line numbers 


1 

RANGE 

YOLK 

2 

WORLD 

GUESS 

3 

SWAP 

calf 

4 

PINT 

does 

5 

E X TR A 

el f 

6 

FIRES 

extra 

7 

YOLK 

field 

8 

GUESS 

f i red 
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Clearing data takes these lines: 

800 PRINT "CLEARING MY MIND ..." 

810 FOR 2=1 TO 1000:(Z)=" ":NEXT Z 
820 FOR Z=1 TO 100:S<Z)=0:N=1 
890 PRINT CL$:GOTO 10 
900 PRINT "DONE":END 

Modifying a datum is only slightly trickier. 

700 PRINT ,"LINE TO CORRECT"!:INPUT X: 

IF X=0 THEN 10 

710 SP=1+LD*(X—1):PRINT X!" ”«A*<SP,SP 
+L. (X > ) 

720 PRINT " ";:GOSUE^ 1000: PRINT 
730 IF T*="ZZZ" THEN 10 
740 IF T*="" THEN 700 

750 D*=""CIF X<ND THEN D$=A$<SP+LD,LEN 
<A*)> 

760 A$<SP)=T$:L<X)=LEN<T*)-l:A*<SP+t D) 

790 GOTO 700 

After specifying the line to correct (700), you type the correct line. 
Much like the ENTRY mode, you can keep correcting data until 
you select item 0 or type ZZZ. Let’s hope none of you ever really 
needs a datum ZZZ! 

You should be testing each module after you add it. This is a 
valuable program, so don’t forget to save it. 

ADVANCED TOPICS 

Like all the programs in the book, superSORT is meant to be 
only a starting place as you move toward customizing your com¬ 
puter to do the work you need to do. If part of the program doesn’t 
perform to your needs, fix it! For example, if you need a margin on 
your printed work, lengthen the bunch of spaces in line 630, or 
include them in line 640. 

Borrow from this program, and modify it without fear, espe¬ 
cially if you have a working copy saved on disk! 

If this program suggests useful work to you, check the two 
adaptations in the last section—DATEBOOK and ORGANIZE. 
They work with three kinds of data at a time, instead of just one. 
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CALC 

a smart calculator 


The way people think, and the way machines think, are some¬ 
times far apart. The way we write 

2 + 3 = 

is a good example. A computer is much happier if we tell it all the 
players, then tell it what game to play, like this: 

2 3 + - * 

But computers are supposed to be our servants, not the other way 
around, so programmers have to teach them to think like people! 
This program teaches the computer to behave like a four-function 
calculator with a simple memory. It uses the BASIC symbols: * 
means times and / means divided by. 

CALC:2+3-4 = 1 
CALC: 16*24 = 3134 
CALC : A••••"'12 = 32 YES 
CALC:2+2=5 NO 
CALC : 

CALC turns your computer into a very simple “expert system.” 
Its expertness is just like a calculator: it’s good with numbers. 


*One computer language, FORTH, does exactly that. If BASIC feels clunky to you, 
you aren’t alone: many scientists and computer specialists program exclusively in 
FORTH. Check into it. 
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You can type in complex problems using the number keys, + for 
plus, - for minus, * for times, and / for divided by. Like most 
calculators, the order of the calculations is critical: 


is not the same thing as 

2 + * 3 

You can use your last answer in a calculation, like this: If you 
calculate 


the computer figures that out as 7. If you then ask for 

4 # R 

the computer substitutes your last answer, 7, for A, and. informs 
you that the result is 28. This turns out to be a useful trait. 

One more wrinkle: If you want to know if one of your calcula¬ 
tions is right, but don’t want to know the answer if you’re wrong, 
you can type your questions like this: 

4 7 = lL fcl 

the computer responds with a “YES” if you are right, and a “NO” 
if you aren’t. That way you can check your homework, and learn 
the lessons you are supposed to, without cheating. 

WRITING THE PROGRAM 

The program works by accepting a whole problem, then “pars¬ 
ing it looking at it a character at a time, and planning a 
solution. 

The keyboard is so simple that we’ll throw in the program title 
line, too: 

1 REM * CALC * 

2 DIM A*<100),I$<1>,V*(100),0(100),V(1 
00 ) 

10 MO=0:PRINT "CALC"J:INPUT A$ 
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The “Parser” looks at each consecutive character: 


20 LA=LEN(A$>:N=1:F-1 
30 I$=A$(P,P> 

40 IF I*="+" THEN 0 <N> =1:GOTO 180 
50 IF 1*="-" THEN 0(N> =2:GOTO 180 
60 IF 1$="*" THEN 0(N)=3:GOTO 180 
70 IF I*»"/ M THEN 0(N)=4:GOTO 180 
80 IF I*>*'/" AND I$<":" THEN 170 
90 IF I$="." THEN 170 
100 IF I$="A” THEN 150 
110 IF I$="=" THEN 130 
120 GOTO 190 

130 MO=l: QA«=VAL (A*(P+l)) : GOTO 200 
150 V$=STRif> <OA) : GOTO 190 
170 V$(LEN<V$)+1)=1$:GOTO 190 
180 V (N) =VAL (V*) : 9$=" " : N=N+1 
190 P»P+1:IF P< =LA THEN 30 


When this segment is done, the problem has been broken down 
into values [one for each value in a variable array called V(n)] and 
Operations [one for each relationship between two values, stored 
in O(n)]. There will be one less operation, we hope, than there are 
values. 

The next section processes the values in the manner dictated by 
the operations: 


200 V<N)=val( v$): v$="":ln=n:n=1 

210 IF LN=1 THEN 400 

220 IF 0(N)=1 THEN V<N>=V(N)+V(N+l):GO 
SUB 300:N=l:GOTO 210 

230 IF O(N)-2 THEN V(N)=V<N>-V<N+1):GO 

SUB 300:N=l:GOTO 210 

240 N=N+1:IF N<LN THEN 210 

250 N=l:IF LN=1 THEN 400 

260 IF O(N)=3 THEN V<N>=V(N)*V(N+l):GO 

SUB 300:N=l:GOTO 250 

270 IF 0(N)=4 THEN V(N)=V<N)/V(N+l):GO 
SUB 300:N=l:GOTO 250 
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280 N=N+1:IF N<LN THEN 250 
290 N=l:IF LN=1 THEN 400 
300 FOR M=N+1 TO LN-1 
310 V <M) =V (M+l) : 0 <M-1) =0 <M) 

320 NEXT M:LN*LN-1:RETURN 

One by one, the results are accumulated into the first Value, V(l), 
and the number of values to be processed is reduced—in computer 
talk we call it decremented—by one, until there’s only one left: 
that’s the answer. 

The answer is displayed next: 


400 PRINT ""»:FOR P-1 TO LA+6:PRINT "" 
5INEXT P 

410 IF M0=1 THEN 500 
420 0A=V<1) : PRINT " 5 OA: GOTO 10 

500 IF QA—V <1) THEN PRINT "YES":GOTO 1 
0 

510 PRINT "NO":GOTO 10 


If we want to see an answer, line 420 prints it. If we just want to 
know if we are right, lines 500 and 510 tell us. Then the program 
returns for another problem. 

ADVANCED TOPICS 

There is lots of room to add the <UP-ARRO W> and exponenti¬ 
ation to our calculator. Two other useful abilities would be: pro¬ 
cessing ((paren)theses) and multiple memories. I leave this chal¬ 
lenge to the advanced programmers. 

If you start getting good using it, you can graduate to the com¬ 
puter’s own “immediate mode” calculator, wherein you type in 
problems like this: 

? 2 + 3 <RETURN> 

? ff32.15/48.65) 12.5+3.2) + (121. 9*.03) 

and the computer provides the answer. The ATARI, it turns out, is 
a very sophisticated calculator. 
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ANYBASE 

a counting machine for any planet 


When they taught most of us to count, they forgot to mention 
that the decimal system is only one of a whole galaxy of perfectly 
lovely counting systems. We count with ten fingers, but computers 
like the ATARI, for instance, count with eight hands, each con¬ 
taining only one finger! And in Base 12, the Baker’s Base, 10 is 
evenly divisible by 2, 3, 4, and 6! 

ANYBASE contains two identical and interlocking counting 
machines. You can tell one to run as if it has ten fingers, the 
decimal system we use, and the second that it has only one finger, 
like the binary system that computers use, and watch the counters 
work together. 

NOTE: If you have no notion why anyone would want to do 
that, you are not required to read any more of this chapter. On the 
other hand, if you know exactly what I’m talking about, skip a 
page. On the third hand, if you are interested (or not quite sure) 
read on: 

As I was saying: on the planet, ZamoGram, all trade is con¬ 
ducted in base 4. You count like this: 

Earth ZamoGram 

1 1 

2 2 

3 3 

So far, so good. But now we get into trouble. 

4 10 

5 11 

6 12 

7 13 

8 20 

Are you with me? The next number after 33 would be 100, right? 
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If your business requires frequent translations between the 
ZamoGrams and the Twist-tyes (who use base base 35—you, for 
example, my friend, might weigh between 1J and 2Z pounds), you, 
I say, NEED THIS PROGRAM! 

WRITING THE PROGRAM 


This program is exceptionally modular: two of its modules are 
nearly identical. But first, the “human interface”: 

1 REM * ANYBASE * 

2 DIM Q$<9),C$<9>,D*<9>,N<9),M<9) 

3 FOR N=0 TO 9:N(N)=0:M<N>=*0:NEXT N 

10 PRINT " NUMBER"5:INPUT Q* 

20 PRINT " ITS BASE"INPUT B2 
30 PRINT "TARGET BASE";:INPUT B1 
70 PRINT "";:GOSUB 300:GOSUB 200 
90 IF THEN PRINT "":RUN 

100 GOTO 70 

Line 10 gets your desired number as a string of characters, Q$, 
while lines 20 and 30 get the number-base of your desired number, 
and the base to translate into. Line 70 sends control to the two 
counters. If the first counter has reached the target number, the 
count stops; otherwise, it loops back to line 70. 

The counters look like this: 

200 N= s 0 

210 N <N) =N <N) +1: IF NfNXBl THEN 230 

220 n<N)=0:n=n+i:goto 210 

230 IF N>HN THEN HN=N 

240 FOR PP«=1 TO 16:PRINT "";:NEXT PP:P 

rint ">";:for d=hn to 0 step -1 

250 IF N(D)<10 THEN D*=STR$(N(D)):GOTO 
270 

260 D*=CHR*<55+N<D)> 

270 PRINT d*;:next D 
290 PRINT :RETURN 
300 M=0:C$="" 

310 M(M)-M(M)+l:IF M(M)<B2 THEN 330 
320 M<M)=0:M*M+l:GOTO 310 
330 IF M>HM THEN HM=M 
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340 FOR PP=1 TO 16:PRINT "";:NEXT PP:P 
RINT ">" 5 :FOR D=HM TO 0 STEP -1 
350 IF M < D) < 10 THEN D$=STR4* (M <D) ) : GOTO 
370 

360 D$=CHR$(55+M(D)) 

370 PRINT D$J:C$(LEN<C$>+1>=D$:NEXT D 
390 PRINT :RETURN 

Line 200 (and 310—the two are parallel) starts (the fancy compu¬ 
ter term is initializes) the place counter. Line 210 checks the cur¬ 
rent place to see if adding one to it will be less than the number- 
base. (The basic rule of number-bases is that there is no numeral Z 
in base Z.) If not, the program “falls through” to line 220, which 
sets the current digit to 0, shifts its attention one place higher, and 
takes the unexpected step of looping back on itself: recursion in a 
BASIC program. 

If the incremented number will be less than the number-base— 
or when the recursive program finally resolves itself, finding or 
creating a place it can increment—the string of digits represent¬ 
ing the number is adjusted and displayed by lines 240 through 
270. The counter then returns to the command immediately fol¬ 
lowing where it was called. 

- ATARI notes _ 

Duplicating program lines revisited 

ANYBASE provides a made-to-order opportunity to perfect your line¬ 
duplicating skills. If you type in lines 200 to 290, you have done 90% of the 
work. 

If you just finished typing lines 200 to 290, they are displayed on the 
screen before you, and entered in program memory, as well. If you doubt 
(or if you have a scrambled screen), LIST 200-290. 

Move the cursor with the <SHIFTXCURSOR-UP> key until you are on 
line 200. Press the <3> key to change the line number, then <CURSOR- 
RIGHT+ over until you are on top of the N, and overstrike it with an =M+. 
<M>. Position the cursor at the end of the line and type in the rest of line 
300. Now press <RETURN>. With a few kesytrokes, you have modified 
and borrowed the line, with efficiency and a much-reduced chance of 
typing errors. This feature is called “full-screen editing,” and it certainly 
the programmer’s task easier, a tool worth mastering. 
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Repeat the process, making the necessary changes and accepting each 
corrected line with a <RETURN> as you go. Remember, if you accept a 
line, then notice it needs another change, you can always move your 
cursor back into the line, fix it, and reaccept it. The most recent accep¬ 
tance always prevails. 

ADVANCED SUBJECTS 

There are much more efficient interbase translation algo¬ 
rithms. The most elegant is based on the fact that exponents of 
the number bases come into play here. The decimal number 3179, 
we all agree, is made up of 

9 * 1 = 9(9 units) 

7 * 10 = 70(7 tens) 

1 * 100 = 100(1 hundred) 

3 1000 = 3000(3 thousands ) 

+ 

add up to 3179 

What you may not know is that exponents are at play here: 


1000 

— 

10 ® 

= 10 * 10*10 

100 

— 

10 a 

= 10*10 

10 

SS 

10 * 

= 10 

1 

7SZ 

10 * 

= 1 


{ all numbers to the zero th power =11 

The same thing happens in binary—base 2. The binary number 
1111 can be evaluated like this 

0 « 2 * 2*2 

4 cs 2*2 

o 

s... 

1 ^ 1 

+ 

plainly adds up to 15 
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UTILITIES 

for school and work 


By now you know that computers can help with your work. 
This chapter helps you develop programs that can help you organ¬ 
ize the events and data in your life. When you have finished these 
final pages, you can consider yourself an intermediate-grade 
BASIC-language computer programmer—with a fist full of 
modules to use on a variety of problems, and enough mastery over 
your machine to take on any problem it can solve. 

DATEBOOK and ORGANIZE are simple data-base manage¬ 
ment systems. Both work with data that comes in three pieces—in 
DATEBOOK, these fields are the date, the event, and a note about 
it: 


10'31 HALLOWEEN 
ii'"04 PARER 
11/10 TEST 
11/11 HOLIDAY 


PARTY @ CHAD’S. 
ENGLISH-CHAUCER 
SCIENCE 
BAKERY 


Each of these data pieces is called a field, and together form a 
record. These two programs let you reorganize data by any one, 
two, or three fields, so that you can view your data in the best 
possible order. For me, these two programs are the most useful in 
the book. 


Michael Potts 
29 October 1983 

HEADER pops a credit, date, and title line in the upper right- 
hand corner of your printed work. Nothing new and exciting here, 
but handy. Its built so you can add it to anything you want 
printed out. 
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DATEBOOK 


The computer can be a willing and accurate helper with its 
powerful memory and easy-to-program study aids. The programs 
in this section are more complicated; more useful, too. 

DATEBOOK helps you prepare for the inevitable: if you type in 
your homework assignments (and your parties)—date, event, and 
description—this program helps you track them, so you need 
never be unprepared. 

DATEBOOK is menu-driven: at any point your options are dis¬ 
played for you. They are: 

1: ENTER DATA 


' J m 

SORT 

6: PRINT 

3: 

DISPLAY 

7: MODIFY DATA 

4: 

SA VE 

8: CLEAR 

5: 

LOAD 

9: QUIT 


If you select option 1, you are prompted (sample responses in 
italics): 

DATE /TIME: 12/25 

EVENT ’.Christmas 

NOTE '.special dinner in Santiago 

If you ask for a display or a print-out of your calendar, you will be 
asked for the field number (DATE is field 1, NOTE is field 3) and 
the text you wish to match. If you had entered all your paper 
assignments through the end of the semester, for example, along 
with parties, birthdays, games, and other important dates, you 
could pop a list of due dates in order to plan your time. 


WRITING THE PROGRAM 

Those who have already programmed SSORT recognized the 
Menu display, and you are right: you won’t have to work very 
hard to get DATEBOOK running. 

(For those of you who want a blow-by-blow explanation of what 
the program does, the exciting part is back in the section on 
SORT.) 


103 


Initialization and Menu: 

1 REM *•********•**•**•***#■■*■*•*■* DATEBOOK * 

2 DIM A$(4000),D$(4000),1$ <1),B$(76) , C 
*<76>,M$<76),Q$<1>,T*<76),E$(76),F*<76 
),N*<76), CL*(1) 

3 DIM L(100, 2), M < 100, 2 > , S (100) 

4 OPEN #1,4,0, "K:" 

6 CL*=CHR$<125):PRINT CL* 

9 N=l:LD=76:L.l = 14:L2=39:REM GOTO 800 


10 

PRINT 

II 

9 

DATEBOOK" 


11 

PRINT 

"l: 

ENTER DATA" 


12 

PR I NT 

ll O m 
X- m 

SORT 6: 

PRINT" 

13 

PR I NT 

ii rr m 
O m 

DISPLAY 7: 

EDIT" 

14 

PRINT 

H A m 
“ « 

SAVE 8: 

CLEAR" 

15 

PRINT 

lie* 

U m 

LOAD 9: 

QUIT " 

20 

PR I NT 

11 

9 9 

OPTION";:INPUT 

Q 

30 

ON 0 

GOTO 

100,200,300,400,500,600,7 


00,800,900 
40 GOTO 10 


Data entry: 

100 PRINT "ENTER DATA ZZZ TO G! 

IJIT" 

110 PRINT "DATE/TIME: .-GOSUB 1000: PRI 

NT 

120 IF T*="ZZZ" THEN ND=N-1:GOTO 10 
130 D*=T*:PRINT " EVENT:"} : GOSUB 10 
00:PRINT 

140 E*=T$:PRINT " note::GOSUB 10 

00:PRINT 

150 N*=T*:GOSUB 1100 
180 A*(1+LD*(N-1))=T$ 

190 N=N+l:GOTO 110 
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Sort module: 


200 PRINT "SORTING":FOR N»1 TO ND:S(N) 
=1:NEXT n:pl=i 
210 N=1 

220 IF S(N)=0 THEN N=N+l:GOTO 220 
225 P=N+1:LN=N:SP=1+LD*(N-l):B$=A$ <SP, 
SP+L2+L<N, 2)—1) 

230 IF S<P)=0 THEN 260 

240 HN=P: SQ=1+LD* <P--1 ) : C*=A$ (SQ, SQ+L2+ 
L(P,2)-1>:IF B$<C$ THEN 260 

250 t$=b*:b$=c$:c$=t$:ln==p:hn=n 

260 P»P+1:IF P< =ND THEN 230 
270 SY=1+LD* (F'L-l) : D$ (SY)=B$:FOR ZL=0 
TO 2:M(PL,ZL)=L(LN,ZL):NEXT ZL:PL=PL+1 
:S<LN)=0:IF PL*=ND THEN 280 
275 GOTO 210 

280 SY=1+LD* <ND—1 > : D$ (SY) =C$: FOR ZL=»0 
TO 2: M <ND, ZL) =L <HN, ZL.) : NEXT ZL. 

290 PRINT "«=«=■ DONE = = =": A$=D$ 

295 FOR N=1 TO ND:FOR ZL=0 TO 2:L<N„ZL 
>=M<N,ZL):NEXT ZL:NEXT N:GOTO 310 

Display: 

300 GOSUB 1400: Lli=LEN (M$) 

310 FOR N=1 TO ND:SF'=1 +LD#(N-l):T$=A$ < 
SP,SP+L2+L < N, 2) -1) 

320 GOSUB 1150:IF LM=0 THEN 370 
330 ON FM GOTO 340,350,360 
340 IF Lli>LEN<D$) THEN 380 
343 IF M*»D*<1,LM> THEN 370 
346 GOTO 380 

350 IF LM>LEN<E*) THEN 380 
353 IF M$=E*<1„LM) THEN 370 
356 GOTO 380 

360 IF LM>LEN <N$) THEN 380 
363 IF M'4>=N$ (1, L.N) THEN 370 
366 GOTO 380 

370 PRINT D$,E$:PRINT " M ;N$ 

380 NEXT N 

390 PRINT ,,"MENU";:INPUT Q$:GOTO 10 
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Save and Load: 

400 PRINT ,"FILENAME FOR SAVE";:INPUT 
E* 

410 F$="D: ":F$ <3)=E$:F$(LEN<F$)+1)®".D 
TA":OPEN #2,8,0,F* 

420 FOR N=1 TO ND 

430 SP=1+LD*(N-1):T*=A*(SP,SP+L2+L< N,2 
)-l):GOSUB 1150:IF D*="" THEN 480 
440 PRINT #2;D$:PRINT #2;E$:PRINT #2?N 
*:PRINT ">";D*,E* 

480 NEXT N:PRINT #2;"ZZZ" 

490 CLOSE #2:GOTO 10 

500 PRINT ,"FILENAME TO LOAD";:INPUT E 
$ 

510 F*="D: " : F$ <3) =E$:F$(LEN (F$) + 1) =" . D 
TA":OPEN #2,4,0,F$ 

520 INPUT #2,D*:IF D*="ZZZ" THEN 590 
530 INPUT #2,E*:INPUT #2,N* 

540 SOSUB 1100:SP=1+LD*(N-l):A*(SP)=T$ 
545 PRINT "<";D$, E$ 

550 N=N+1:GOTO 520 

590 ND=N-l:CLOSE #2:GOTO 10 

Print module: 

600 GOSUB 1400: LM=LEN <M$) 

610 FOR N°=l TO ND:SP“1+LD*(N-l):T$=A$( 
SP, SP+L.2+L. (N, 2) -1 ) 

620 GOSUB 1150:IF LM®0 THEN 670 
630 ON FM GOTO 640,650,660 
640 IF LM>LEN(D$> THEN 680 
643 IF M*=D$(1,LM> THEN 670 
646 GOTO 680 

650 IF LM>LEN(E*) THEN 680 
653 IF M$=E$(1,LM) THEN 670 
656 GOTO 680 

660 IF LM>LEN<N$) THEN 680 
663 IF M*=N$(1,LM) THEN 670 
666 GOTO 680 
670 LPRINT D*,E$,N$ 

680 NEXT N 
690 GOTO 10 
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Reschedule: 


700 0OSUB 1400:LM»LEN(M*>:IF FM=0 THEN 
10 

710 FOR N=»l TO ND: SP=1+LD* (N-l) : T*=A* ( 
SP,SP+L2+L (N, 2> -1) 

720 GOSUB 1150:IF LM=0 THEN 770 
730 ON FM GOTO 740,750,760 
740 IF LM>LEN(D*) THEN 790 
743 IF M*=D*(1,LM> THEN 770 
746 GOTO 790 

750 IF Lli>LEN <E*) THEN 790 
753 IF M*=E*(1,LM) THEN 770 
756 GOTO 790 

760 IF LM>LEN<N*) THEN 790 
763 IF M*»N*(1,LM> THEN 770 
766 GOTO 790 

770 GOSUB 1700:IF T*="ZZZ" THEN N=ND+1 
:GOTO 10 

780 D*="":IF N=ND THEN 785 
783 D*=A*(SP+LD,LEN(A*)) 

785 A* <SP)"T$:A*(SP+LD)=D* 

790 NEXT N:GOTO 700 

800 PRINT "CLEARING MY MIND ..." 

810 FOR Z-l TO 1000:A*<Z>=" ":NEXT Z 
820 FOR Z-l TO 100:S(Z)=0:NEXT Z 
890 N*l:PRINT CL*:GOTO 10 


End and the Keyboard: 

900 PRINT "DONE" .‘END 
1000 T*="" 

1010 I=PEEK(764):IF 1=255 THEN 1010 
1020 GET #l,K:POKE 764,255 
1030 IF K=155 THEN RETURN 
1070 I*»CHR*(K>:PRINT I*; 

1080 T*(LEN(T*)+1)=I* 

1090 GOTO 1010 
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Taking strings apart and putting them together: 

1100 T*=D*: T*<L1 )=E*:T*<L2)=N$ 

1110 L(N,0>=LEN<D*)-1:L<N,1)=LEN(E$>-1 

:L<N,2)=LEN(N*)-1 

1140 RETURN 

1150 D$="":IF L(N,0)<0 THEN 1160 
1155 D$=T*<1,1+L<N,0)> 

1160 E*="":IF L(N,1)<0 THEN 1170 
1165 E*=T*<L1,L1+L<N,1)> 

1170 N$="" :IF L (N,2) <0 THEN 1190 
1180 N*=T$(L2,L24L(N,2)) 

1190 RETURN 

Matching fields and data: 

1400 M*="":PRINT "FIELD TO MATCH"; 

1410 INPUT F*:IF F$="" THEN FM=0:GOTO 
1490 

1420 FM=VAL(F$):PRINT " DATA TO MATCH" 

m 

j 

1430 INPUT M* 

1490 RETURN 

Data modifier: 

1700 PRINT D*,E$: PRINT " "; N* 

1710 PRINT "DATE/TIME:"J:GOSUB 
I NT 

1720 IF T$="ZZZ" THEN RETURN 
1740 D*=T* 

1750 PRINT " EVENT:GOSUB 

I NT :IF T$=”" THEN 1770 
1760 E*=T* 

1770 PRINT " NOTE:"J:GOSUB 

I NT :IF T$“"" THEN 1790 
1780 N$=T* 

1790 GOSUB 1100:RETURN 


1000:PR 

1000: PR 

1000:PR 
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USING DATEBOOK 


There are some tricks that may help you use DATEBOOK more 
effectively. You will notice that sorting sometimes gives unex¬ 
pected results. For example, 

9 ••••" 30 

the usual abbreviation for September 30th, will sort after 

10 ■■■“" 13 

because the computer thinks 10/ is less than 9/3—and it’s right. 
(Start counting at the leftmost character: 1 is less than 9, isn’t it?) 
You can avoid that problem by using a leading 0, like 

09-•"30 

Erase the record from the calendar by rescheduling the event’s 
DATA to a blank—press <RETURN> only. You can reschedule 
an event by changing the DATE, then resorting the data. 

You can load lists onto the ends of lists, and save them as one 
giant list simply by loading more than one file. 

ORGANIZE: 

TO DO FOR DATA WHAT YOU DID FOR DATES 

ORGANIZE lets you work with other kinds of facts the way 
DATEBOOK keeps your calendar: it’s a special-purpose data base 
manager to customize for any kind of need you can imagine. 

WRITING THE PROGRAM 

Upgrading DATEBOOK takes a few easy changes. 

Change the program name in line 1 and 10 (although this is 
optional, it will cut down on confusion later.) 

Change the prompts in lines 110,130,140,1710,1750, and 1770. 
There is a full listing of DATEBOOK in the appendix for com¬ 
parison and debugging. 

You are finished: ORGANIZE is ready for testing and use. 
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HEADER 


You can plug HEADER in to a program that you are using for 
school or work to put a name, date, and title on every page, like 
this: 


Michael Potts 
6 November 1983 
Heading Program 


WRITING THE PROGRAM 


There isn’t much to it (but it makes your work look good): 

2 DIM D$ (16) ,T$ <16) , TE<$ (55) 

6000 PRINT "today's date"INPUT D* 

6010 PRINT " titie"INPUT T* 

6020 FOR N=1 TO 55: TB* <N) =" "."NEXT N 
6030 LPRINT TB$;"Michael Potts- 
6040 LPRINT TB*?D$ 

6050 LPRINT TB*;T* 


You insert a subroutine call (GOSUB 6000) right at the begin¬ 
ning of a print routine. A bit of attention to your printer—always 
start typing at the same place on a clean sheet—and you have 
nearly professional output. 
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appendix 


Programming is one activity that uses the computer usefully, 
but there are other interesting things to do. 

Word processing turns your computer into a very smart type¬ 
writer. I can help with organizing and writing papers, letters, and 
other written work. You could write or buy utilities that make your 
computer even smarter for writing: spelling checkers, table-of- 
contents generators, fancy-printing programs. The limitation is 
your time (or budget) and imagination. Atari Writer and Letter 
Perfect are two word processors for the ATARI. 

Spread-sheet programs turn your computer into an excellent 
accountant's helper—a sort of super calculating machine. With a 
spreadsheet program loaded into your computer, you can do elab¬ 
orate simulations and “What-if ’ evaluations, or simply balance 
your personal finances. Visi-Calc is such a program. 

You need keyboard skills to use a computer well—knowing 
which finger hits which key. Good computerized touch-typing 
instruction courses and games exist that will make your dialogue 
with the computer much more efficient and enjoyable. 

The outside world is available to your computer, and with a 
modem and communications software you can take control of 
some of the most powerful computers in the world. For more 
information on this, an excellent resource is the book The Com¬ 
plete Handbook of Personal Computer Communications (Alfred 
Glossbrenner, St. Martin's Press, New York, 1983.) The Source, 
CompuServe, and Dialog are three of the most interesting compu¬ 
ters for your computer to call. 
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1 REM ******■*•#•*#•*•*«•■*#•*•■*****•**•** NUMS * 

2 DIM A*(100),BS(3>,NS(20),RS(1> 

3 PRINT CHRS(125) 

4 OPEN #1,4,0,"K:" 

5 DATA 1,2,3,4,5,6,7,8,9,0,END 

10 PRINT :PRINT "HELLO.":PRINT "MY NAM 
E IS NUMS." 

20 PRINT "WHAT IS YOUR NAME";:INPUT NS 
: N=i 

30 READ BS:IF BS="END" THEN 50 
40 AS(N)=BS:N=N+1:GOTO 30 
50 LN=1:HN=N—1 

60 GOSUB 1300:REM GETS A RANDOM NUMBER 
70 GRAPHICS 2+16:POSITION 10,5:RS=AS<R 
,R):PRINT #6!RS; 

80 GOSUB 1000:BS=CHRS(K):REM GETS KEY 
90 IF BS=RS THEN 110 
100 GOTO 80 

110 POSITION 8,6:HN=5:LN=1 
120 GOSUB 300:PRINT #6;CHRS(S9+R*32); 

130 GOSUB 300:PRINT #6;CHRS(69+R*32); 
140 GOSUB 300: F'R I NT #6; CHRS (83+R*32) ; 
150 PRINT #6;" ! “ 

200 FOR T=1 TO 800:NEXT T 
290 GOTO 50 

300 GOSUB 1300: IF R==2 THEN 300 
310 IF R=3 THEN 300 
390 RETURN 

1000 I-PEEK(764):IF 1=255 THEN 1000 
1010 GET #1,K:POKE 764,255 
1090 RETURN 

1 300 R= I N T (l_N+ (HN—LN+1) *RND (1) ) : RET URN 
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COUIMTEM 


1 REM ********************** COUNTEM * 

2 DIM C*(1),D*<6>,M*<12>,Q*<1> 

3 C$=CHR$<125):M$=" 


4 OPEN #1,4,0, "K:" 

5 PRINT C$;M$;"* COUNTEM *" 

10 PRINT D$;"WHAT IS THE LOWEST NUMBER 
: INPUT LL 

20 PRINT " THE HISHEST NUMBER";: 

INPUT HH 

30 ln=ll:hn=hh:gosub 1300 :graphics 2+1 

6:P0SITI0N 1,5 

40 FOR N=1 TO R:PRINT # 6 ;" *" 5 :NEXT N 
60 POSITION 3,8:PRINT #6;"HOW MANY? "j 
:GOSUB 1000 
70 IF Q=R THEN 110 

80 POSITION 2,4:FOR N-l TO R:PRINT #6; 
N; " ";:NEXT N 

90 GOTO 60 


1 10 POSI T ION 8,6: HN=5: L.IM= 1 
120 GOSUB 300:PRINT #6 ; CHR$ ( 89+R*32); 
130 GOSUB 300 : PR I NT #6 $ CHRT < 69+R*32); 
140 GOSUB 300 : PR I NT #6 ; CHR$(83+R*32) ; 


150 PRINT #65" '" 

200 FOR T~ 1 TO 800:NEXT T 


290 GOTO 30 

300 GOSUB 1300:IF R=2 THEN 300 
310 IF R-3 THEN 300 
390 RETURN 

1000 I=PEEK <764) : IF I ==255 THEN 1000 
1010 GET # 1,K:POKE 764,255 
1020 Q$=CHR*<K> 

1030 IF OIK " 1 " OR Q$>"9" THEN 1000 
1040 Q-VAL < 0 T) :PR1NT #6; Q 
1090 RETURN 

1 300 R= I NT (L.N+ (HN-LN+1 ) *RND (1) ) : RETURN 
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FIIMDME 


1 REM *•*FINDME * 

2 DIM A$(1000),B$(20),D$(20),M$(12),C$ 
(12) , R$ (60) , 1$ (1) , T* (20) , Q$ (20) 

5 C$=CHR$(125) 

10 PRINT C$;"* FINDME :PRINT "Y" 

20 FOR R=8 TO 0 STEP -1:PRINT R; 

30 FOR 0=0 TO 9: PRINT " + ";:NEXT C:PF' 
INT :PRINT 

40 NEXT R:FOR 0=0 TO 9:PRINT " »;C;:N 

EXT C:PRINT "X" 

50 HN=9:GOSUB 1300:X=R:HN=8:GOSUB 1300 
: V=F: 

60 VX=X:VY=Y:z=88:GOSUB 1200 

70 POSITION 1,22SPRINT "CAN YOU FIND M 
E ( X, Y) "; 

80 INPUT QX,QY:.IF QX=X AND QY=Y THEN 1 
00 

90 GOTO 200 

100 PRINT "YOU FOUND ME!"; 

180 FOR T=0 TO 1999:NEXT TSGOTO 10 
200 PRINT " YOU MISSED ME"; 

210 VX=QX:VY=QY:Z=79:GOSUB 1200 
220 POSITION 1,23SPRINT " ";:FOR T=0 T 
O 500:NEXT T 
230 PRINT " 

240 GOTO 70 

1200 POS1TION 4+ <3*VX),2+(2*(8-VY)) 

1210 PRINT CHR$(Z); 

1290 RETURN 

1300 R=INT(LN+(HN-LN+1)*RND(1)):RETURN 
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1 REM ***********************SFINDME * 

2 DIM N<10>,C$<1),M$<12> 

5 C*=CHR*(125):GOSUB 1900 

10 PRINT C*5M$;"* FINDME PRINT "Y" 

20 FOR R=8 TO 0 STEP -l:PRINT R; 

30 FOR C=0 TO 9: PRINT " + ";:NEXT C: PR¬ 
INT :PRINT 

40 NEXT R:FOR C=0 TO 9:PRINT " ";c;:N 


EXT c:PRINT "X" 

50 HN=9:GOSUB 1300:X=R:HN=8:GOSUB 1300 


M I -» \ 

60 N1=N(X):N2=N(Y):GOSUB 2000 
70 POSITION 1,22:PRINT "CAN YOU FIND M 
E ( X, Y) "; 

80 INPUT QX,QY:IF QX = X AND QY=Y THEN 1 
00 


90 GOTO 200 

1 00 PRI NT "YOU FOUND ME!"; 

110 N1=N(X):N2=Nl:GOSUB 2000 
120 N1=N(Y):N2=N1SGOSUB 2000 
130 N1 =N (3) : N2= S N (5) : GOSUB 2000: GOSUB 




000 

140 N1=N(7):N2=N < 8 > :GOSUB 2000 
180 FOR T=0 TO 499:NEXT T 
190 GOTO 10 

200 PRINT " YOU MISSED ME"; 

210 N1=N(QX):N2=N< X) :GOSUB 2000 
220 N1=N(QY):N2=N(Y):GOSUB 2000 
270 POSITION 1,23:PRINT " "; 

280 PRINT " "j 

290 GOTO 70 

900 DATA 121,108,96,81,72,60,53,47,40, 
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1200 POSITION 4+ < 3*VX),2+(2* «8-VY >) 
1210 PRINT CHRT(Z); 

1290 RETURN 

1300 R=INT(LN+(HN-LN+1)*RND<1)):RETURN 


1900 FOR N=0 TO 9:READ NN:N<N)=NN:NEXT 
N 

1910 Nl=121:N2=B1:REM *****TWONOTE* 

1920 GOSUB 2000:GOTO 1910 

2000 SOUND O,N1,1O,8 

2010 FOR T=1 TO 40:NEXT T 

2020 SOUND O,N1,10,0 

2030 FOR T=1 TO 4:NEXT T 

2040 SOUND O,N2,10,7 

2050 FOR T=1 TO 80:NEXT T 

2090 SOUND O,N2,10,O:RETURN 


ONECLAP 


1 F-'FZII ********************** ONECLAP * 

2 DIM NT(20>,MOT(10),AT(4000),BT(1000) 

, 7 T < 40 > , FT < 4 > , WT ■ 4) , IT (1) , QT (1) , VT (5) , 
CT < 25) 

3 DIM P i 1000),W(5) 

4 OPEN #1,4,0, "K: " 

7 VT="AEIOU":R7=300 

10 CT=CHRT(125):CT(2)=" * 

ONECLAP *":PRINT CT;MOT="ANY KEY":MO=0 
20 PRINT :PRINT "WHAT IS YOUR NAME";:I 
NPUT NT:GOTO 3000 

30 GOSUB 300:IF LEN(7T)>1 THEN 55 
40 GOSUB 400:G=G+1:IF G<10 THEN 30 
50 MOT="ONE CLAP":MO=l:GOSUB 300 
55 LT=LEN(TT>:IF LT<3 THEN 250 
60 FT=TT (L.T-1, LT-1 ) : GOSUB 500: IF F=-l 
THEN 250 

70 W=0:NW=W(F+1)-W(F) 

80 WP=W(F)+W:WT=AT(P(WP)+1,p(WP+1)):IF 
TT=WT THEN 100 
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85 W-W+1:IF W<NW THEN 80 
90 GOTO 250 

100 POSITION 3,6:PRINT #6;“IS ON MY LI 
ST.":GOSUB 800 

110 NR=NR+1:IF TT="QUIT" THEN 700 
190 GOTO 50 

250 POSITION 1,8:PRINT #6;"IS NOT ON M 
Y LIST.":GOSUB 800 

260 BT<LEN(BT)+1)= " ";BT(LEN(BT)+1)=T$ 
290 GOTO 50 

300 GRAPHICS 2+16:PRINT #6;MOT 
310 POSITION 8,5:PRINT #6 5"?";:POSIT10 
N 8,5 

320 TT="": T'=0: GOSUB 1000 
390 RETURN 

400 FT= T T:GOSUB 500:IF F<0 THEN 420 
410 HN=W (F +1 ) -W (F) : GOSUB 1300:WP=W(F)+ 
R: WT=AT(P< WP)+1,P(WP+1)):GOTO 480 
420 HN=4:GOSUB 1300:W=0:NW=W(R+1)-W(R) 
425 NW-W(R+1)-W(R) 

430 WF'-W (R} +w: WT=AT (P (WP) +1, P (WP+1 ) ) : I 

F TT=WT<1,1> THEN 480 

440 IF TT=WT(LEN<WT)) THEN 480 

450 W=W+l:IF W<NW THEM 430 

460 R=R+1:W=0:IF R<5 THEN 425 

470 R=0:GOTO 425 

480 POSITION 8,5:PRINT #6;W$ 

490 GOSUB 800:RETURN 
500 F=— 1 : IF F$-‘"A" THEN F=0 
510 IF F$="E" THEN F=1 
520 IF FT-"I" THEN F=2 
530 IF FT="0" THEN F=3 
540 IF FT="LI" THEN F=4 
590 RETURN 

700 PRINT C$:PRINT :PRINT 
710 PRINT NT;" FOUND NR:PRINT ,"GOOD 

WORDS. " 

720 PRINT :PRINT "WORDS NOT ON MY LIST 

:":PRINT :P=1:LB=LEN(BT) 

730 PP=37:IF LB—P<37 THEN 790 

740 IF BT (F'+F'P, P+PP) =" " THEN 760 
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750 PP-PP-1:GOTO 740 

760 PRINT B$(P,P+PP-1):p=p+RP+1:GOTO 7 

30 

790 PRINT B« < P,LB):END 

800 FOR T=0 TO 750:NEXT T:RETURN 

1000 I—PEEK(764) 

1010 T=T+1:IF T<RT THEN 1050 
1020 IF NO >0 OR L.EN<T*)=0 THEN 1050 
1030 POSITION 6,10:PRINT #6!"PRESS IRE 
TURNJ";:r=0 

1040 F’OS IT I ON 8+LEN <T$) , 5 

1050 IF 1=255 THEN 1000 

1060 GET #1,K:POKE 764,255 

1070 IF K=155 THEN RETURN 

1080 I$-CHR$(K):PRINT #6; IT;: T$(LEN <T* 

) +1 > = I $ 

1090 GOTO 1000 

1300 R=INT(LN+< HN-LN+1)*RND(1)):RETURN 

3000 PRINT "EXCUSE ME.";NT 
3010 PRINT "I AM READING MY LIST NOW." 
3020 PRi nt :w=0 :ll= 0:pp=0 :tt=vt <l,i): v 
=0:w < 0 ) — 0 :P< 0 )=0 

3030 READ WT: L.W=LEN (WT) : IF WT < LW-1, LW- 
1)>TT THEN 3100 

3040 PRINT WT; " " ; : LL=L.L.+LW+1 : IF LL>33 
THEN PRINT : L.L=0 

3050 AT (FP+1) =WT: PF'=PP + LW: W=W+1: P (W) =P 
P 

3090 GOTO 3030 

3i 00 v=v+i:w(v)=w:i f v =5 then 30 

311 0 TT=VT< V+1,V+1):GOTO 3030 

9000 DATA BAT,CAT,EAT,FAT,HAT,MAT,PAT, 

RAT,SAT,TAT,VAT,WAX 

9010 DATA BET,GET,JET,LET,MET,NET,PET, 
SET,VET,YET 

9020 DATA BIT,FIT,HIT,KIT,PIT,SIT,TIT, 
WIT,ZIP,QUIT 

9030 DATA COT,DOT,GOT,HOT,JOT,LOT,NOT, 
POT,ROT,SOT,TOT 

9040 DA T A BUT,CUT,GUT,HUT,JUT,NUT,PUT, 
RUT 

9990 DATA 211 



PATTERN 


1 REM ********************* PATTERNS * 

2 DIM Q$(3),P$(11):P$="PATTERNS 
5 LN= 1 

10 GRAPHICS 2+16: P=1 : X=1: Y=.l: POKE 764, 
255:R=1 

20 POSITION X,V:PRINT #6;P* < P,P)|:K=PE 
EK(764):IF K<>255 THEN GRAPHICS 0:GOTO 
60 

30 P=P+1:IF P>8+R THEN P=1 
40 X = X + l:lF X<19 THEN 20 
50 X=1: Y=Y+1: IF .Y< 10 THEN 20 
55 Y=1:POSITION 1,5:PRINT #6;"< PRESS 
ANY KEY >'VTHN=4: GOSUB 1300: R=R-1: GOTO 


60 PRINT "PATTERNS":PRINT :PRINT :PRIN 
T "EASY (0) OR HARD (9)";:INPUT DF 
70 PRINT :HN=INT(DF/2)+1:1F HN>5 THEN 
HN=5 

80 GOSUB 1300:ON R GOTO 100,200,300,40 
0, 500 

100 HN—4*(DF+1) :GOSUB 1300:S=R 
120 HN—2*(DF+1):GOSUB 1300:I=R 
130 HN=2: GOSUB 1300:L.=3+R 
140 HN=L:GOSUB 1300:M=R 
150 FOR N=1 TO L 

160 IF N=M THEN PRINT " ? ";:GOTO 180 
170 PRINT " S+I*(N~l);" "; 

180 NEXT N:A=S+1*(M-1):GOSUB 1000:1F Q 
—A THEN 1100 
190 GOTO 140 

200 HN=4*SQR< DF+1):GOSUB 1300:S=R 
220 HN=2*(DF+1):GOSUB 1300:I=R 
230 HN=2:GOSUB 1300:L=3+R 
240 HN—L:GOSUB 1300:M=R 
250 FOR N=1 TO L. 

260 IF M-M THEN PRINT " ? "5:GOTO 280 
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270 PRINT " ";S*I*N;" "; 

280 NEXT N:A=S*I*M:GOSUB 1000:if Q=A 7 
HEN 1100 
290 GOTO 240 

300 HN=DF:GOSUB 1300:S=R 

320 HN-DF+1:GOSUB 1300:I=R 

325 HN=INT(DF/2):GOSUB 1300:I2=R 

330 HIT—2: GOSUB 1300: l_=3+R 

340 HN-L:GOSUB 1300:M=R* 

350 11 = 1:FOR N=1 TO L 

360 IF N=f-1 THEN PRINT " ? ";:A=S+I1*(N 
—1):GOTO 380 

370 PRINT " ”;S+I1*(N-l);" 

380 11 = 11 + 12:NEXT N:GOSUB 1000: IF Q=A 

THEN 1100 

390 GOTO 340 

400 IF FR=0 THEN 1600 

410 HN=FR:GOSUB 1300:R=R~1:A$=D*(P(R)+ 
1, P (R+'l) ) : P=1 

420 L=L.EN (A$) : HN=L: GOSUB 1300: M=R 
430 HN=2:GOSUB 1300:I=R:IF I=1 THEN 45 
0 

440 I=-l:P=L 

450 IF P=M THEN PRINT " 

):GOTO 470 

460 PRIN7 " ";A*(P,P); M 
470 P=P+I:IF P=0 OR P>L THEN 490 
480 GOTO 450 

490 GOSUB 1000:IF Q$=Z$ THEN 1100 

495 IF I<0 THEN 440 

496 P=l:GOTO 450 

500 HN=SQR(DF):GOSUB 1300:S=R 

520 HN=2:GOSUB 1300:I=R+1 

530 HN=2:GOSUB 1300:L..=4+R 

540 HN=L:GOSUB 1300:M=R 

550 FOR N=1 TO l_: Z = INT (S*N" I+0.5) 

560 IF N=M THEN PRINT " ? ";:A=Z:GOTO 
580 

570 PRINT " " ;Z;" "5 

580 NEXT N:GOSUB 1000:IF Q=A THEN 1100 


";:z$=a$(p,p 


II 
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590 GOTO 540 
1000 PRINT 

1010 PRINT "WHAT IS MISSING"INPUT Q$ 
1020 IF Q'$="" THEN 1090 
1030 IF ASC(Q$)>64 THEN 1090 
1040 Q=VAL.(Q$) 

1090 RETURN 

1100 PRINT "YOU ARE RIGHT." 

1190 GOTO 70 


1300 R= I NT < l_N+ < HN-LN+1) *RND (1) ) : RET URN 


1 600 DIM D$(1000),A$(20),2$(1),P(100); 
N=0 


1610 READ AS: IF A$--”ZZZ" THEN 1690 

1 620 LD-LEN (D$) : P (W) =LD: D$ (L.D +1) -AS: W= 
W+J;GOTO 1610 

1690 P<W>=LEN< D$) : FR=W:GOTO 41 0 


9000 DATA B IRTHDAY,WASHI NGTON,F1SH,COM 
PUTER, HORSE, BOAT 


9990 DATA ZZZ 


REMEMBER 


2 DIM C$ < 13) , T$ (10) , Q$ (10) , Mf> (8) , R$ (1) 
, I $ (1) 

4 OPEN #1,4,0, "K: ” 

5 C*=CHR*(125):C$(2)="REMEMBER... PR 
I NT C* 

6 M$="" 

9 TK—0.015:SK—33 

10 LIT—0: PR I NT : PR I NT : PR I NT 

20 PRINT "0=EASY 9=HARD ...HOW TOUGH" 

;:Imput df:TD- 200 *( 11 -DF) 

30 L=3+(DF/3):HN=9:IF DF>5 THEN HN=36 

35 IF DF>7 THEN HN=22 

40 T$-"":FOR N—1 TO L:GOSUB 1300 
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TO LEM <T*) 


50 IF R>9 THEN 70 
60 R*=STR* <R) ."GOTO 80 
70 R*=CHR* (54+R) 

80 f $ <LEM<T*)+ 1 )=R*:NEXT N 
100 PR I NT C*; DF; 1*1$; : FOR N= 1 

:PRINT " ";7$ < N,N);:nex t n 

110 FOR T=1 TO TDrNEXT T 

120 PR I NT C$ 5 DF ; M*; " ? " ; : Q*=« ••; r= 0 : POKE 
764,255 

130 GOSUB 1000:T=T+1 

170 IF K=155 THEN PRINT : PRINT : GOTO 2 
10 

180 Q*(LEN<Q*)+1)=1$:PRINT 1$;" 

190 IF 0$<>T$ THEN 130 

200 PRINT :PRINT :PRINT "EXACTLY!” 

210 IF Q*="" THEN 300 

220 LT=LEN<T*):LQ-LEN( 0 *):SC- 0 :FOR N ~1 
TO LT 

230 IF N>LG! THEN 250 

240 IF T*(N,N>=Q*(N,N> THEN SC=SC +1 
250 NEXT N:PRINT "SYMBOLS RIGHT:";SC, 
?55 PRINT I NT (100*SC/LT> ; 

-60 SC=INT ( (SK*L) / ( <T*TK) * (SC/L.T) ) ) +1 
280 PF; I NT " TI ME: " ; T*TK; " SECONDS " : PR I 

NT "SCORE "5 SC:TS=TS+SC:NQ=NQ+ 1 :TT-TT+ 
T*TK 

290 FOR T=1 TO TD:NEXT T:GOTO 40 
300 PRINT C$5 DF:PRINT 
310 PRINT "SCORES: " 

320 PRINT "TOTAL SCORE "; TS 

330 PRINT "STRINGS ATTEMPTED ";NO 
340 PRINT "AVERAGE SCORE/* ";TS/NQ 
350 PRINT "TOTAL SECONDS ";TT 

360 PRINT "AVERAGE TIME/* ";TT/NQ 

390 FOR 1=1 TO 3*TD:NEXT T:GOTO 40 

1000 I =PEEK (764) : T--T+1: IF I =255 THFN 1 
000 

1010 GE T # 1 ,K:POKE 764,255 
1020 1*=CHR*(K) 

1090 RETURN 

1 300 R=INT(LN+(HN-LN+1)*RND< 1 )):RETURN 


2 
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SPELL 


1 REM **•*■#■**•*•*■*•#************** spell * 

2 DIM A*(1000),B$(20),D$(20),M$(12 >,C$ 
(12) , R$ (60) , 1$ < 1) , T$ (20) , D* (20) , H$ (38) 

3 DIM P (3) , Q (3) , W (50) , X (50) , Y (25) 

4 OPEN #1,4,0, "K: *’ 

5 C$=CHR$ (125) : FOR N=2 TO 12:C*<N) 

NEXT N:PRINT C$ 

6 m*=»•• : print m$; spell *" 

B P=l:FOR N=1 TO 3:READ T*:R*(P)*T»:P( 
N) —P: P=LEN(R$):Q(N)-P:p*p+l:NEXT n 

9 TD=1000 :ln=i:nw=i:pw=i:h=0 

10 GOSUB 500:REM GET DATA 

20 FOR N=1 TO ND:PRINT A* (W(N),X(N)) 

30 IF H=0 THEN PRINT A*(X(N)+1,Y(N)):P 
RINT 

40 NEXT N 

45 H=l:GOTO 200 

50 FOR T=1 TO TD:NEXT T 

60 HN=ND:GOSUB 1300:PRINT C$j M$;A$ <W(R 

) , X(R)) 

70 FOR T=1 TO TD:NEXT T:PRINT C*sM*s:I 
NF'UT Q$ 

80 IF Q$=A$<W(R),X(R)) THEN 100 
90 PRINT "SORRY, IT’S "5 A*<W(R) ,X(R)): 
WR—WR+1:GOTO 1 30 

100 HN=3:GOSUB 1300:PRINT :PRINT R* <p < 
R) ,Q(R) ) 

110 RI=RI+1 

120 FOR T=0 TO TD:NEXT T:IF H=1 THEN 2 
00 

130 IF RI<10 THEN 60 
140 IF H=1 THEN 200 

150 HN=ND:GOSUB 1300:PRINT C*?" " ; < 

X (R) +1,Y(R)) 

160 PRINT : PR I NT M$; : INPUT Q$:GOTO 630 
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200 wg=0:rg=0:hn=nd:gosub 1300 :print c 

$; li$; 

210 T$=A*<W(R>,X(R)):LT=LEN<T*):FOR Z = 
1 TO LT 
220 PRINT 

230 NEXT Z:PRINT :PRINT :PRINT "GUE 
SS? *•; 

240 GOSUB 1000:Z=1:PRINT :PRINT "";m$; 
250 IF I*=T*(Z,Z> THEN 310 
260 PRINT ""j 

270 Z=Z + 1:IF Z< =LT THEN 250 

280 PRINT "":GOSUB 400:IF RF=1 THEN RF 

=0:GOTO 240 

290 WG=WG+l:IF WG<2*LT THEN 240 
300 PRINT :PRINT "YOU LOSE":GOTO 130 
310 PRINT I %;" " ; 

330 RG=RG+l:RF=l 

340 IF RG=LT THEN PRINT :PRINT :GOTO 1 
00 

350 GOTO 270 

500 PRINT :PRINT "ENTER DATA ZZZ T 

0 QUIT" 

510 PRINT NWINPUT T$ 

520 IF T$="ZZZ" THEN 590 

530 a$<pw)=t*:w<nw)=pw:pw=len<a$): x <nw 
)=pw:pw=pw+i 

540 IF H=1 THEN 580 

550 PRINT "HINT";:INPUT H$:IF H*=" M TH 
EN H=1:GOTO 580 

560 GOTO 600:REM CHECK SPELLING 

570 a*(pw>=h$:pw=len<a$):y<nw)=pw:pw=p 

W+l 

580 NW=NW+l:GOTO 510 

590 ND=NW~1:RETURN 

600 PP=1:LT=LEN< T$)-1:LH=LEN <H*) 

610 PQ=PP+LT:IF H$(PP,PQ)=T* THEN 660 
620 PP=F'P+1: IF PPOLH-LT THEN 610 
630 PRINT "PLEASE CHECK SPELLING":GOTO 
550 
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660 IF PP=LH-LT THEN Q$="":GOTO 680 
670 (PD+1,LH) 

680 FOR P=PP TO PQ:H*(P)":NEXT P 
690 H$ (P)=Q$:GOTO 570 

900 DATA RIGHT !.', CORRECT. , YOU GOT IT! 
1000 I=PEEK<764):IF 1=255 THEN 1000 
1010 GET #1,K:POKE 764,255 
1090 I$=CHR$(K):RETURN 

1300 R=INT(LN+(HN-LN+l)*RND(1)):RETURN 


MATH FAX 


1 REM ***■*■***•*##** MATHFAX * 

2 DIM M*(20),Q$ <1) 

5 M*=CHR* (125) : M$ (2) =" 

10 PRINT M$;"* MATHFAX *" 

20 PRINT "l=add 2=subtract 3=multiply 
4=divide" 


25 PRINT "highest operation";:INPUT HO 
:HO=HO-l 

30 PRINT "highest number for addition" 
;:INPUT HA 

35 IF HO<2 THEN 50 

40 PRINT " for multi pii cation" 

5 :INPUT HM 

50 HN=HO:GOSUB 1300:OP=R+l:PRINT m$;:o 
N OP GOTO 60,60,90,90 

60 HN=HA:GOSUB 1300:N1=R:GOSUB 1300:N2 


=R:ON OP GOTO 70,80 

70 PRINT Nl;" + ";N2;:A=N1+N2:GOTO 130 
80 PRINT N1+N2; - "5Nl;:A=N2:GOTO 130 

90 HN=HM:GOSUB 1300:Nl=R:GOSUB 1300:N2 
=R:ON OP GOTO 70,80,100,110 

100 PRINT Nlj" * ";N2;:A=N1*N2:GOTO 13 
0 


110 IF Nl=0 OR N2=0 THEN 90 

120 PRINT N1*N2;" / ";Nl5 :A=N2:GOTO 13 
0 


130 PRINT 
160 


»— It 


input Q: if qoa then 


it 


140 PRINT :PRINT ,,"YES" 

150 FOR T —0 TO 999:NEXT T:GOTO 50 

160 PRINT :PRINT ,, "NO":ON OP GOTO 170 

,165,180,180 

165 NT=N1+N2:GOTO 175 

170 NT=N2 

175 PRINT ,;:GOSUB 300:PRINT ,;:NT=N1: 
GOSIJB 300: GOTO 150 
180 NZ=0 

190 IF NZ<N1 THEN PRINT ,:NT=N2:GOSUB 
300:NZ=NZ+1:GOTO 190 

250 PRINT ,,"Okay"5:INPUT Q*:GOTO 50 
300 NP=0 

310 IF NP<NT THEN PRINT CHR*<0) ; :NF-NP 

+l:GOTO 310 

320 PRINT :RETURN 

1300 R=INT(LN+<HN-LN+1> *RND(1)):RETURN 

TIMELINE 

1 REM M '## TIMELINE 

2 DIM C*<24>,T*<39),A$<4000>,K*<1) 

3 DIM Y(100),Z(100) 

4 OPEN #1,4,0,"K:" 

5 C$=CHR$(125):C$(2)=" * TIMEL 

INE *":PRINT C* 

9 N=0:P=0 

10 z(N)=p:read yr,t$:if t$="zzz" then 

30 

20 LT=LEN(T$):A$(P+1)=T$:N=N+1:Y(N)=YR 

:l.t=len<t$) :p=p+lt:goto 10 

30 ln=n:for n=i to ln:print Y(N):PRINT 
A$(Z(N-l)+l,Z(N)):PRINT :NEXT N:Y=3 
40 PRINT C$:FOR N=Y—2 TO Y+2:PRINT Y(N 
):PRINT A$(Z(N-l>+l,Z<N)>:PRINT :NEXT 
N 

50 PRINT - -- -- -- -- - 

_ _ _ •• 

60 PRINT " - earlier + later which 

?";:GOSUB 1000 :Y-Y+l 
70 IF K*="+" THEN Y=Y+3 
75 IF Y>LN—2 THEN Y=LN-2 
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80 IF K$="-" THEN Y=Y-5 
85 IF Y<3 THEN Y=3 
90 GOTO 40 

100 DATA 1000,Leif Ericson discovers A 
merica 

110 DATA 1522,first circumnavigation o 
f the earth 

120 DATA 1607,Jamestown settled in Vir 
gini a 

130 DATA 1620,Pi 1grims arrive at Plymo 
nth Rock 

140 DATA 1756,French & Indian War beqi 
ns 

150 DATA 1775,James Watt invents steam 
engine 

160 DATA 1776,Dec1aration of Independe 
nee 

170 DATA 1778,Captain Cook discovers H 
awai i 

180 DATA 1787,U.S. Constitution signed 
190 DATA 1791,Bill of Rights ratified 
200 DATA 1803,Louisiana Purchase 

210 DATA 1807,Robert Fulton's steamboa 
t up the Hudson 

220 DATA 1834,Charles Babbage's analyt 
ical engine 

230 DATA 1846, Potato famine & U. S. -Tie;: 
ico war- 

240 DATA 1849,California Gold Rush 

250 DATA 1858,first trans-Atlantic cab 
1 e 

260 DATA 1861,Civil War begins 

270 DATA 1865,Abraham Lincoln shot 

280 DATA 1869,Golden spike: railroad a 
cross U.S. 

290 DATA 1888,George Eastman invents K 
odak camera 

999 DATA -1,ZZZ 

1000 I=PEEK(764):IF 1=255 THEN 1000 
1010 GET #1,K:POKE 764,255 

1020 K$=CHR*(K) 

1090 RETURN 
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MINI-WOMBATS 


1 REM ****************** mini WOMBATS * 

2 DIM Q*<250>,N*<16>,J$(32>,P*<32)„SX$ 

(12),C*<1) 

5 C$=CHR$(125):PRINT C$ 

8 POKE 702,0 

9 SX = 1: P$="Sienna": J$="wombat" 

10 PRINT : PRINT "* Wombats !! *":LN=0 
20 PRINT "1=add 2=subtract 3=multiply 
4=divide" 

25 PRINT "highest operation"?:INPUT HO 
:H0=H0-1 

30 PRINT "highest number -for addition" 

;:INPUT HA 

35 IF H0<2 THEN 30 

40 PRINT " for multiplication" 

;:INPUT HM 

50 PRINT C*:PRINT :PRINT :PRINT 
53 PRINT "Please tell me your name"?:I 
NPUT N* 

55 IF ASC(N$>>90 THEN GOSUB 1170ZGOTO 
53 

60 HN=3:GOSUB 1300:IF R=3 THEN GOSUB 1 
100 

70 GOSUB 1300:IF R=3 THEN GOSUB 1200 
80 HN=HO:GOSUB 1300:0P=R+1:IF 0P>2 THE 
N HN=HM:GOTO 90 
85 HN=HA 

90 GOSUB 1300:N1=R:GOSUB 1300:N2®R:ON 
OP GOTO 100,300,500,700 

100 HN=2:GOSUB 1300:ON R+l GOTO 110,17 
0 , 220 

110 Q$=P$: GOSUB 1500: Q* (Z) ==" found a b 

ag containing ":GOSUB 1300 

120 Q$(Z)=STRS<N1):GOSUB 1500:Q$(Z)=" 

":Q*(Z+l)=J$:GOSUB 1500 

130 Q*(Z)="s. ":GOSUB 1400 

140 GOSUB 1500:0$(Z)="already has ":GO 
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SUB 1500:O*(Z)=STR*(N2):OOSUB 1500 
150 Q*(Z)=" ":Q*(Z + l)=J*:GOSUB 1500:0* 
(Z)="s at home. How many does " 

160 GOSUB 1420:GOSUB 1500:Q*(Z)*"have 
now":GOTO 290 

170 0*=P*:GOSUB 1500:0* < Z)=" had ":GOS 
UB 1500:0*(Z)=STR*(N1):GOSUB 1500 
180 Q*<Z)=" ":□$(z+i)=j *:gosub 1500:0* 
<Z)="s in ":GOSUB 1480:GOSUB 1500 
190 0*(Z)="pocket, and later won ":GOS 
UB 1500:O*<Z>=5TR*<N2>:GOSUB 1500 
200 0*(Z)=" more in a bet with ":GOSUB 
1500:Q*(Z)=N*:GOSUB 1500 

210 Q*<Z)=". How many did ":GOSUB 1420 
:GOSUB 1500:0*<Z)“"have then":GOTO 290 
220 Q*=P*: GOSUB 1500: O* <Z> =»" receives 
2 envelopes. One contains ":GOSUB 1500 
230 0*<Z)=STR*<N1):GOSUB 1500:Q*<Z)=" 
":0*<Z+l>=J*:GOSUB 1500 

240 Q*(Z)="s; the other contains ":GOS 
UB1500:Q*<Z)“STR*<N2):GOSUB 1500 
250 0*<Z)=". How many does ":GOSUB 142 
0:GOSUB 1500:0*(Z)="have now":GOTO 290 
290 A=N1+N2.’G0T0 900 

300 N2=N1+N2:HN“2:GOSUB 1300:ON R+l GO 
TO 310,340,400 

310 0*=P*:G0SUB 1500:Q*(Z)“" hides ":G 
OSUB 1500:0*(Z)=5TR*<N2):GOSUB 1500 
320 0*<Z>=" ":0*<Z+l)=J*:GOSUB 1500:0* 
<Z)="s, and you -find ": GOSUB 1500 
330 0*<Z)=STR*<N1) .'GOSUB 1500:0*<Z>“". 

How many are still hidden":GOTO 490 
340 0*=P*:GOSUB 1500:0*(Z)=" had too m 
any ":GOSUB 1500:Q* < Z)«J *:GOSUB 1500 
350 Q* < Z)="s and gave you ":GOSUB 1500 
:0*(Z)=STR*(N2):GOSUB 1500 
360 0*<Z)=". Later, ":GOSUB 1420:GOSUB 
1500:0*(Z)“"lost all of them, " 

370 GOSUB 1500:Q* (Z) ="and you kindly g 
ave ":GOSUB 1500 
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380 0* (Z ) =STR* (N1) : GOSUB 1500: Q* < Z) =*' 
back. How many do you still have":GOTO 
490 

400 Q*="Yesterday, ":GOSUB 1500:Q*<Z)= 
P*:GOSUB 1500:0*(Z)bought ":GOSUB 1 
500 

410 Q*<Z>=STR*<N2):GOSUB 1500:Q*<Z)=" 

" : Q* <Z+1) ~\7*: GOSUB 1500 

420 Q*(Z)="s, but this morning ":GOSUB 
1420:GOSUB 1500 

430 Q*(Z)="could only find ":GOSUB 150 
0:Q*(z)=STR*(N1):GOSUB 1500 
440 0*<Z)=". How many were missing":GO 
TO 490 

490 A=N2—N1:GOTO 900 

500 HN==2: GOSUB 1300: ON R+l GOTO 510,56 
0,600 

510 Q*=p*: GQSUE< 1500:Q*<Z>=" won " : GOS 
(JB 1500:0* ( Z ) =STR* (N1) : GOSUB 1500 
520 0*(Z)=" coupons at the fair. ":GOS 
UB 1400:GOSUB 1500 

530 0* (7.) =" ex changed each coupon for " 
:GOSUB 1500:0*(Z)~STR*< N2):GOSUB 1500 
540 0 *<Z)=" ":0*<Z+1)=J*:GOSUB 1500:0* 
(Z) = "s. How many does ": G0SUE< 1420 
550 GOSUB 1500:0*(Z>="have now":GOTO 6 
90 

560 Q*-P*:GOSUB 1500:Q* <Z)=" built a m 
achirte to make ": GOSUB 1500 
570 0*(Z)=J*:GOSUB 1500:Q*(Z)="s. It h 
as made ": G0SUE< 1500 

580 0*(Z)=STR*<N1):GOSUB 1500:Q*(Z)=" 
each day for ":GOSUB 1500:0*(Z)=STR*(N 
2 ) 

590 GOSUB 1500:Q* < Z)=" days. How many 
has it. made": GOTO 690 

600 Q*=" A flying saucer deposits ":GOS 
UB 1500:0*(Z)=STR*(N1):GOSUB 1500 
610 Q* (Z) ==" silvery spheres in GOSUB 
1500:0*(Z)=P*:GOSUB 1500 
620 Q*(Z)=" ! ’s back yard, and ": GOSUB 1 
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500:0$ < Z)=STR$< N2) :GOSUB 1500 

630 0$<Z)=" “:0$<Z+1)=J$:GOSUB 1500:0$ 

(Z)="s jumped out of each one. How man 

y " 

640 GOSUB 1500:0$<Z)=J$:GOSUB 1500:0$( 

Z)="s are rampaging around GOSUB 150 
0 

650 Q$<Z)=P$:GOSUB 1500:0$(Z)»"'s hous 
e right now":GOTO 690 
690 A=Nl*N2:GOTO 900 

700 IF N1=0 THEN HN=HM:GOSUB 1300:Nl-R 

:goto 700 

710 N2=N1*N2:HN=2:GOSUB 1300:ON R+l GO 
TO 720,770,820 

720 Q$=P$:GOSUB 1500:0$ < Z)=" dug ":60S 
UB 1500:0$(Z)=STR$(N1):GOSUB 1500 
730 Q$<z>=" ":q$<z+1)=j$:gosub 1500:q$ 

(Z)=" traps in the forest, and caught 
a total of " 

740 GOSUB 1500:0$(Z)=STR$(N2):GOSUB 15 
00:Q$(Z)=" ":Q$(Z+1)=J$:GOSUB 1500 
750 Q$ < Z > = "s. On the average, how many 
did ":GOSUB 1420:GOSUB 1500 
760 0$<Z)="find in each trap":GOTO 890 
770 0$=P$:GOSUB 1500:Q$(Z>=” buys a pa 
cket with ":GOSUB 1500:Q$<Z)=STR$<N2> 
780 GOSUB 1500:Q$(Z)=" ":0$(Z +1)=J$:GO 
SUB 1500:Q$ < Z)=" seeds in it. The dire 
ctions tell “ 

790 GOSUB 1460:GOSUB 1500:0$(Z)-"to pi 

ant ":GOSUB 1500:Q$ < Z)=STE$(N1):GOSUB 
1500 

800 Q$<Z)=" in each hole. How many hoi 
es should ":GOSUB 1420:GOSUB 1500 
810 Q$(Z)="dig":GOTO 890 
820 0$=F'$: GOSUB 1500: Q$ <Z ) sa " shared ": 
GOSUB 1500:Q$ < Z)=STR$(N2):GOSUB 1500 
830 Q$<Z>=" ":Q$(Z+I)=j$:GOSUB 1500:0$ 
<Z)="s with ":GOSUB 1500:Q$(Z)-STR$(N1 
- 1 ) 

840 GOSUB 1500:Q$(Z)*" of ":GOSUB 1480 
.’GOSUB 1500 
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850 Q$<Z)="friends. How many did each 
get":GOTO 890 
890 A=N2/N1 

900 PRINT .'PRINT "» + = + = + « + = + 

=+=+=+ -"sprint 

910 LQ=LEN<Q*>:Ll=l:L2=36 
920 IF Q$(L2,L2)=" " THEN 940 
930 L2=L2—1:GOTO 920 

940 PRINT Q*(L1,L2>:Ll“L2+l:L2=Ll+34: I 

F L2CLQ THEN 920 

950 PRINT Q*<L1,LQ)5""5 

960 INPUT Q.“ IF Q=A THEN 1000 

970 PRINT :PRINT "Woops! That’s not ri 

ght.. " 

980 PRINT "The right answer is ";AS"." 
990 GOTO 1090 

1000 HN=3:GOSUB 1300:ON R GOTO 1010,10 
20,1030 

1010 PRINT "You got it!":GOTO 1090 
1020 PRINT "Well done, "; N$;".":GOTO 1 

090 

1030 PRINT "That’s right)":GOTO 1090 
1090 FOR LS=1 TO 12:PRINT :NEXT LS:PRI 
NT "";:GOTO 60 

1100 PRINT : PRINT " ++ ++ ++ ++ ++ •+• + 
4 - 4 - 4 - 4 * 44 - + 4 - 4 * 4 - 4 * 4 -" 

1110 PRINT “Name a person"INPUT P* 
1120 IF ABC(P$)>90 THEN GOSUB 1170:GOT 
□ 1110 

1130 PRINT “Is ";P$5 M a girl or a boy" 
INPUT SX$:SX*0:IF SX*«"bay" THEN SX=* 

2 

1140 IF SX$=“girl“ THEN SX=1 

1150 IF SX>0 THEN RETURN 

1160 PRINT “I'm sorry- I don't know an 

y questions“:PRINT “about ";SX$> M s. PI 

ease try again.“:GOTO 1130 

1170 PRINT “Person's names begin with 

a CAPITAL." 

1180 PRINT “Remember the SHIFT key, an 
d please" 
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1190 PRINT "try again, N$;".":RETURN 
1200 PRINT :PRINT " — — — — — — 


1210 PRINT "Name an object"j:INPUT J* 
1290 RETURN 

1300 R=INT(LN+ < HN-LN+1)*RND(1)):RETURN 


1400 GOSUB 1500:IF SX=1 THEN 
e RETURN 

1410 Q$(Z)="He RETURN 
1420 GOSUB 1500:IF SX=1 THEN 
e ":RETURN 

1430 < Z)="he ":RETURN 

1440 GOSUB 1500:IF SX=1 THEN 
rs ":RETURN 

1450 Q$(Z>="his ":RETURN 
1460 GOSUB 1500:IF 5X=1 THEN 
r ":RETURN 

1470 Q*<Z)=”him ": RETURN 
.1480 GOSUB 1500: IF SX*=1 THEN 
r ":RETURN 

1490 Q$(Z)="his ":RETURN 
1500 Z=LEN<Q$)+l:RETURN 


Q*(Z)«"Sh 


Q»(Z)="sh 


Q*(Z)="he 


Q* <Z)="he 

Q*(Z)»"he 




J. REM ************************** 

2 GM=3:MX=39:MY=23 

3 DIM K*(1),E$(8),F*<14),S$(MX) 
(MY+1 > ) 

4 OPEN #1,4,0 ,"K:" 

5 GRAPHICS GM+16:X-MX/2:Y=MY/2: 
LOR 1 


PAINT * 
,P*(MX* 

PC=1:CO 


9 CF-1 

10 CF=PC:GOSUB 1100:GOSUB 1000 

20 IF K=45 THEN Y=Y-l:IF Y<0 THEN Y=0 

30 IF K—61 THEN Y-Y+l:IF Y>MY THEM Y=M 
Y 
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40 

IF K=43 

THEN X = X-l: IF- 

50 

IF K-42 

THEN X = X + 3. 'J IF 

X 



60 

IF K=32 

AND PF----1 THEN 

65 

IF K=32 

THEN PF=1 

70 

IF K>47 

AND K< 52 7'HEN 

80 

IF K$—"Q 

" THEN 900 

90 

IF "Z 

" THEN 800 

100 

IF K$=" 

S" THEN 300 

1 10 

IF K$=” 

L" THEN 500 

1 20 

IF K*=” 

C" THEN 200 

1 90 

GOTO 10 


200 

CV=0: PV 

==PC-l:.IF PV<0 


210 SETCOLOR PV, CV, 6: GOSUB 1000: IF K= 1 
55 THEN 250 

220 IF THEN CV=CV+1:IF CV>15 TH 

EN CV—15 

230 IF THEN CV=CV-1:IF CV<0 THE 

N CV=0 

240 GOTO 210 
250 L„V—0 

260 SETCOLOR PV,CV,LV:GOSUB 1000:IF K= 
155 THEN 10 

270 IF K$=" + " THEN LV=l..V+2: IF LV>14 TH 
EN LV= 1 4 

280 IF K $="—" THEN LV-LV-2:IF LV<0 THE 
N LV=0 

290 GOTO 260 
300 GOSUB 400 

310 PRINT "FILE TO SAVE";:INPUT E$ 

320 F$="D:":F$ (3)=E$:F$(LEN<F$)+1)=" . p 
IX" 


330 OPEN #2,8,0, F$ 

340 FOR SY=0 TO MY:PP=1+MX*SY:S$=P$(PP 

,PP+3S):PRINT #2;S$:NEXT SY 

350 PRINT #2;"ZZZ":CLOSE #2 

390 LX=MX:LY=MY: GOSUB 600:GOTO 10 

400 PP=l:FOR SY=0 TO my:FOR SX=1 TO MX 

410 LOCATE SX,SY,P:P$(F'P)=STR$(P) :pp=p 

p+1 
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420 NEXT SX 

430 PLOT 1,SY:COLOR 1:DRAWTO 1,SY 
440 NEXT SY 
490 RETURN 

500 PRINT ’•FILE TO LOAD"INPUT ET 
510 f*="d: ":f$(3)=e$:f$<len(F$)+1)="„p 
IX" 

520 OPEN #2,4,0,F*:LY=0:PP=1 

540 INPUT #2;S$:IF S*="ZZZ" THEN 580 

550 PT <PP) =S$: LX=LEN <S$) : PP=PP+L.X 

560 LY—LY+l:GOTO 540 

580 CLOSE #2:LY—LY~1 

590 GOSUB 600:GOTO 10 

600 GRAPHICS GM+16:PP“1:FOR SY=0 TO LY 
:FOR SX=1 TO LX 

610 CF=VAL(PT«PP,PP)):COLOR CF 
620 PLOT SX,SY:DRAWTO SX,SY:PP=PP+1 
630 NEXT S X:NEXT SY 
690 RETURN 

800 GOSUB 400:PRINT "ZAP IT"; 

810 INPUT K*: IF K$="N" THEN LX*=MX:LY=M 
Y:GOSUB 600:GOTO 10 
890 GRAPHICS GM+16:GOTO 10 
900 GOSUB 400 : PR I NT " QUIT " : INPUT Kf»: IF 
K*="N" THEN L.X=MX:L.Y=MY: GOSUB 600: GOT 
O 10 
990 END 

1000 I“PEEK(764):IF 1=255 THEN 1000 

1010 GET #1,K:POKE 764,255 

1030 IF PF—0 THEN CF=OC 

1040 IF PF=1 THEN CF=PC 

1050 GOSUB 1100 

1080 K$=CHR$(K) 

1090 RETURN 

1100 LOCATE X,Y,OC:COLOR CF:PLOT X,Y:D 
RAWTO X,Y 
1190 RETURN 
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BARS 


1 REM ■*########*■*****##******** BARS * 

2 DIM C*<40>,B$(7),T$(38>,S*(38),A$<26 
6 ) 

3 DIM L <7), P (7) 

5 C$=CHR$(125):C*(2)=" * BARS *" 

:PRINT C$ 

10 READ B:IF B=-l THEN 30 

20 B$ (LEN (B$)+1) =CHR$ <B) : GOTO 10 
30 READ LN 
40 READ HN 
50 READ NB 

60 READ T$:LT=LEN(T$):M=(38-LT)/2:C*<1 
+M)=T$ 

70 P=0:N=0 

80 READ S$,V:L(N)=V:LS=LEN(S$>:P<N)=P: 

a*(p+i)=s$:P(N)=p:p=p+ls:n=n+i: if n<nb 

THEN 80 
90 P(N)=P 

100 POKE 752,1:PRINT C*:PRINT 
110 1=(HN-LN)/5:IB=36/(HN-LN) 

120 FOR N=0 TO 5:PRINT INT(LN+<N*I));" 

"5:NEXT N:PRINT 
130 PRINT :FOR BN=0 TO NB-1 
140 FOR L=1 TO L(BN)*IB:PRINT BUKBN+1, 
BN+1);:NEXT L:PRINT " "f L <BN) 

150 PRINT A$(P(BN)+1,P(BN+1)):PRINT :N 
EXT BN 

200 GOTO 200 

900 DATA 0,8,10,19,79,88,123,-1 
910 DATA 0,75,6 

920 DATA LIFE EXPECTANCY - MALES 

930 DATA USA, 69 

940 DATA COLOMBIA,44 
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950 DATA NORWAY,71 
960 DATA JAPAN,71 
970 DATA INDIA,42 
980 DATA AUSTRALIA,68 


0 


1 


30 


60 


1 REM ************************* BARS * 

2 DIM C$<40>,B*(7),T$<38),S$<38>,A$(26 
6), Q*(1),P*<7) 

3 DIM L(7),P(7) 

5 C*=CHR* (125) :C$ (2) * BARS *" 

:PRINT C$ 

10 READ B: IF B=-.l THEN 30 
20 B*(LEN<B*)+1)=CHR$<B) : GOTO 10 
30 READ LN 
40 READ HN 
50 READ NB 

60 READ T*: LT=L.EN < T* > : M= < 38-LT) / 2: DM 1 
+M)=*T* 

70 P=0:N=0 

80 read s*, v:l<N)=v:ls*len<s$):p<n)»p: 

A*(P+1 )=S$: P <N)=P:P=P+LS:N=N+l:IF N<NB 
THEN 80 
90 P(N)=P 

100 POKE 752,1:PRINT C$:PRINT 
110 1= (HN-LN) /5: IE<=36/ (HN-LN) 

120 FOR N=0 TO 5:PRINT INT <LN+ <N*I) ) j " 
";:next n:PRINT 


137 



130 PRINT .“FOR BN=0 TO NB-1 

140 FOR L=1 TO L(BN)*16:PRINT B*(BN+1, 

BN+1);:NEXT L.“ PRINT " " * L < BN) 

150 PRINT A$(P(BN)+1,p(BN+1)):PRINT :N 
EXT BN 

200 PRINT "PRINT IT";:INPUT Q$:N=0:LPR 
I NT T$: LF'RINT 

210 READ P:IF P=-l THEN 230 
220 P$(N+l)=CHR$(P):N=N+1:GOTO 210 
230 T$=" " : FOR N=0 TO 5: T* (LEN (T$) +1) =S 
TR$ < INT (LN+ (N*I) ) ) : T$ (LEN (Tit) +1) =" 

" : NEXT N: LF'RINT T* 

240 LF'RINT : FOR BN=0 TO NB-1:T$="" 

250 FOR L=1 TO L (BN) *IB.“ T* (LEN <T*) +1) = 
P$(BN+1,BN+1):NEXT L:T*(LEN(T$)+1)=" " 
: T$ (LEN (T$) +1) =STR$ (L (E4M) ) : LF'RINT T$ 
260 LF'RINT A* (P (BN) +1, p (BN+1) ) : LPRINT 


:next bn 

900 DATA 

0,8,10,19,79,88,123,-1 

910 

DATA 

0,75,6 

920 

DATA 

LIFE EXPECTANCY - MALES 

930 

DATA 

USA,69 

940 

DATA 

COLOMBIA,44 

950 

DATA 

NORWAY,71 

960 

DATA 

JAPAN,71 

970 

DATA 

INDIA,42 

980 

DATA 

AUSTRALIA,68 

990 

DATA 

56,35,42,72,159,88,78,- 
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SORT 


1 REM ************************* SORT * 

2 DIM A$(4000),D$(4000), I $ < 1) ,B$(40) , C 
*<40>,M*<40),Q*<1), Tf<40) 

3 DIM L(100) , M < 100) , S < 100) 

4 OPEN #1,4,0, "K:" 

6 PRINT CHR*(125):N=1:LD=40 


8 I 

FOR N= 

1 TO 

ld:m$<len(m$)+d = " 

":next 

N 

:n=i 




10 

PR I NT 

, "SORT" 


11 

PRINT 

M l: 

ENTER DATA" 


12 

PRINT 

H 2: 

SORT" 


13 

PRINT 

iitp 

0 « 

DISPLAY" 


19 

PRINT 

"9: 

QUIT" 


20 

PRINT 

, "OPTION"?:INPUT Q 


30 

ON Q 

GOTO 

100,200,300,10, 10, 

10, 10, 1 


0, 900 
40 GOTO 10 

100 PRINT "ENTER DATA ZZZ TO Q 

UIT" 

110 print n; M ::gosub 1000 :print 

120 IF TS="ZZZ" THEN ND=N-l:GOTO 10 
130 A$<1+LD*<N-1>>=T$:L<N)=LEN<T*)-1 
140 N=N+1:GOTO 110 

200 PRINT "SORTING":FOR N=1 TO ND:S(N) 

=i:next n:pl=i 

210 N=1 

220 IF S(N )—0 THEN N=N+l:GOTO 220 

225 p==n+i:ln=n:sp=i+ld*(n-d :b$=a$(SP, 

SP+L <N)) 

230 IF S<P)=0 THEN 260 

240 SQ=1+LD*(P-1):C*=A$(SQ,SQ+L(P>):PR 
INT B$,C*,:IF B$<C* THEN 260 

250 t*=b$:b$=c*: c$=T*: ln=p:print "swap 

PING"; 

260 PRINT :P=P+1:IF P< =ND THEN 230 
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270 SY=1+LD* (PL—1) :D$ <sy) =e<$: m <pd =len 
(B*)-1:PL=PL+1:S(LN)=0:IF PL=ND THEN 2 
80 

275 GOTO 210 

280 SY=1+LD* (ND-1) : D$ (SY)=C$:M(ND)=LEN 
(C$)-l 

290 PRINT " = = = DONE = = =":A*=D$:FO 
R N=1 TO ND:L(N)=M(N):NEXT N 
300 FOR N=1 TO ND 

310 SP=1+LD*(N-1):PRINT N;" ";A$(SP,5 

P+L(N)) 

320 NEXT N 

390 PRINT ,,"MENU";:INPUT Q$:GOTO 10 
900 PRINT "DONE":END 
1000 T$="" 

1010 I=PEEK(764):IF 1=255 THEN 1010 
1020 GET #l,K:POKE 764,255 
1030 IF K=155 THEN RETURN 
1070 I$=CHR$(K):PRINT 1$; 

1080 T$<LEN(T$)+1)=1$ 

1090 GOTO 1010 


SUPERSORT 

1 REM ** ******** ***#***-#**-*#.*.**SsORT * 

2 DIM A$(4000),D$(4000),I*(1),(40),C 

$(40),M$(40),Q$(l),T$(40),E$(8),F$(14) 
, CL$ (1 ) 

3 DIM L(100),M(100),S(100) 

4 OPEN #1,4,0,"K:" 

6 CL$=CHR$(125):PRINT CL$ 

9 N=1:LD=40:GOTO 800 


10 

11 

PR I NT 
PRINT 

It 

" 1 

SORT" 

ENTER DATA" 


12 

PRINT 

it 

SORT 

6 : 

PRINT" 

13 

PR I NT 

n *y 

DISPLAY 

7: 

EDIT" 

14 

PR I NT 

"4 

SAVE 

8 : 

CLEAR" 

15 

PRINT 

it cr 

LOAD 

9: 

QUIT" 

20 

PRINT 

i 

? 5 

•OPTION";: 

INPUT 

Q 


30 ON Q GOTO 100,200,300,400,500,600,7 
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ZZZ TO Q 


00 ,800 ,900 
40 GOTO 10 

100 PRINT "ENTER DATA 
UIT" 

110 PRINT N : GOSUB 1000: PR I NT 

120 IF T*="ZZZ" THEN ND=N--1S GOTO 10 
130 A$(1+LD* <N-l))=T$:L(N)»LEN<T«)~1 
140 N=N+1:GOTO 110 

200 PRINT "SORTING":FOR N=1 TO ND:S<N> 

=i:next n:pl=i 

210 N=1 

220 IF S <N)=0 THEN N=N+l:GQTO 220 
225 P=N+1:LN=N:SP=1+LD*(N-l):B*=A* <SP, 
SP+L<N> ) 

230 IF S(P)=0 THEN 260 

240 SGN1+LD*(P-1):C*=A*<SQ 5 SQ+L<P)):PR 
INT B*,C$,:IF BUKC* THEN 260 
250 T$=B$:B$=C$:C$=T$:LN=P:PRINT "SWAP 
PING"; 

260 PRINT :p=p+l:IF P<=ND THEN 230 
270 SY=1+LD*(PL—1):D<MSY>=B*:M(PL>=LEN 
<B*>-1:PL=PL+1:S<LN)=0:IF PL=ND THEN 2 
80 

275 GOTO 210 

280 SY=1+LD* (ND-1) : D$ (SY) =C$: M (ND) =»LEN 
<C$>-1 

290 PRINT " = - = DONE - - =": A$«=D$: FO 
R N=1 TO ND:L(N)=M(N):next N 
300 FOR N=1 TO ND 

310 SP=1+LD*<N-1):PRINT N; " "JA*<SP,S 
P+L(N)) 

320 NEXT N 

390 PRINT ,,"MENU";:INPUT Q$:GOTO 10 
400 PRINT ,"FILENAME FOR SAVE"5:INPUT 
E* 

410 F*="D: ":F$<3)=Ef:F$<LEN(F«)+l)=F".D 
TA": OPEN #2,8 f 0jiF# 

420 FOR N=1 TO ND 

430 SP= 1+LD* (N-1 ) : T$=A$ (SP, SP+L (N) ) : PR¬ 
INT #2;T*:PRINT ">";t* 
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440 NEXT N:PRINT #2;"ZZZ":CLOSE #2 
490 GOTO 10 

500 PRINT ,"FILENAME TO LOAD";:INPUT E 

$ 

510 F*="D:":f$<3)=e*:f$<len<f*>+1)=".d 

TA":OPEN #2,4,0,F$ 

520 INPUT #2,T$:IF T$="ZZZ" THEN 590 

530 SP=l+LD*(N-l):A$(SP)=T$:L<N>=LEN<T 
$>-l 

535 PRINT "<";T* 

540 N=N+1:GOTO 520 

590 ND=N-1:CLOSE #2:GOTO 10 

600 PRINT "PRINT LINE NUMBERS <Y/N)";: 
INPUT Q$ 

610 FOR N=1 TO ND 

620 IF Q$< >"Y" THEN 640 

630 SP=1+LD*(N-l):LPRINT Nj" "5A$(SP, 

SP+L(N)):GOTO 650 

640 SP=1+LD* (N-l): LPRINT AH(SP,SP+L(N) 

) 

650 NEXT N 
690 GOTO 10 

700 PRINT ,"LINE TO CORRECT";:INPUT X: 
IF X=0 THEN 10 

710 SP=1+LD*<X-1):PRINT X;" ";A$(SP„SP 
+L < X) ) 

720 PRINT " ";:GOSlJB 1000: PRINT 
730 IF TH="ZZZ" THEN 10 
740 IF T*="" THEN 700 

750 DH=" " : IF X<ND THEN DH=AH(SP+LD,LEN 
<A$> ) 

760 A*(SP)=T$:L(X)=LEN <TH)-1:AH(SP+LD) 
=DH 

790 GOTO 700 

800 PRINT "CLEARING MY MIND ..." 

810 FOR Z=1 TO 1000:A$<Z>=" ":NEXT Z 

820 FOR Z = 1 TO 100:S<Z)=0:N=1 

890 PRINT CLH:GOTO 10 

900 PRINT "DONE":END 

1000 TH="" 

1010 I=PEEK(764):IF 1=255 THEN 1010 
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1020 GET #1,K:P0KE 764,255 
1030 IF K=155 THEN RETURN 
1070 I*=CHR*(K):PRINT 1$; 
1080 T*<LEN<T$)+1)=1$ 

1090 GOTO 1010 


ANYBASE 

1 REM * ANYBASE * 

2 DIM Q$<9),C*<9),D*<9),N<9),M(9) 

3 FOR N=0 TO 9:N(N)=0:M(N)=0:NEXT N 

10 PRINT " NUMBER" INPUT Q*> 

20 PRINT " ITS BASE"INPUT B2 
30 PRINT "TARGET BASE";:INPUT B1 
70 PRINT "";:GOSUB 300:GOSUB 200 
90 IF C$=Q$ THEN PRINT "":RUN 
100 GOTO 70 
200 N=0 

210 N(N)=N(N)+1:IF N(N)<B1 THEN 230 
220 N(N)=0:N=N+1:GOTO 210 
230 IF N>HN THEN HN=N 

240 FOR PP=1 TO 16:PRINT "";:NEXT PP:P 
RINT ">";:FOR D=HN TO 0 STEP -1 
250 IF N(D)<10 THEN D*=STR$<N<D)):GOTO 
270 

260 D*=CHR$ <55+N <D)) 

270 PRINT D$;:NEXT D 
290 PRINT .’RETURN 
300 M=0:C$="" 

310 M(M)=M(M)+1:IF M <M)<B2 THEN 330 
320 M(M)=0:M=M+1:GOTO 310 
330 IF M>HM THEN HM=M 

340 FOR PP=1 TO 16:PRINT "";:NEXT PP: P 
RINT ">";:FOR D=HM TO 0 STEP -1 
350 IF M(D)<10 THEN D»=STR$(M(D)):GOTO 
370 

360 D*=CHR* <55+M(D) ) 

370 PRINT D$;:C$(LEN<C$)+1)NEXT D 
390 PRINT :RETURN 
490 Bl=16 

500 GOSUB 200:GOTO 500 
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CALC 


1 REM * CALC * 

2 DIM A$< 100) , I$U) ,v*< 100) ,O<100>, V<1 
00 ) ' 

10 MO=0:PRINT "CALC"INPUT A* 

20 LA=LEN(A$):N=l:P=l 
30 I$=A$<P,P) 

40 IF I$="+" THEN 0 <N)=1:GOTO 180 
50 IF 1$="-" THEN 0(N)=2:G0T0 180 
60 IF I•*-«.•* THEN 0<N)=3:G0T0 180 
70 IF 1$="/" THEN D(N)»4:G0T0 180 
80 IF I$>"/•' AND ITHEN 170 
90 IF 1*="." THEN 170 
100 IF I$="A" THEN 150 
110 IF I$="=» THEN 130 
120 GOTO 190 

130 M0=1:QA=VAL(A*(P+1));GOTO 200 

150 V*=STR$(OA):GOTO 190 

170 V*(LEN<V$)+1)=1$:GOTO 190 

180 V <N) =VAL (V$) : V$«=" " : N=N+1 

190 P=P+l:IF F’< ==LA THEN 30 

200 V(N)=VAL(V*) : ••; ln=n: N=1 

210 IF LN=1 THEN 400 

220 IF 0(N)=1 THEN V(N)“V<N)+V(N+l):GO 
SUB 300:N=l:GOTO 210 

230 IF 0(N) s =2 THEN V <N) “V (N) —V (N+l) : GO 
SUB 300:N=1:GOTO 210 
240 N=N+l:lF N<LN THEN 210 
250 N=1:IF LN=1 THEN 400 

260 IF 0(N)=3 THEN V (N) =V (N) *V (N+l) : GO 
SUB 300:N=1:GOTO 250 

270 IF O(N)=4 THEN V <N> =V (N)/V (N+l) : GO 

SUB 300:N=l:GOTO 250 

280 N=N+1 .* IF N<LN THEN 250 

290 N=l:lF LN=1 THEN 400 

300 FOR M=N+1 TO LN-1 
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310 V<M)=V<M+1): 0 <M-1 > =0 (M) 

320 NEXT M:LN=LN-1:RETURN 

400 PRINT " M ;:F0R F-l TO LA+6:PRINT. 

;:NEXT p 

410 IF M0=1 THEN 500 
420 OA-V<1>:PRINT "=";OA:GOTO 10 
500 IF QA=V<1> THEN PRINT "YES".’GOTO 1 
0 

510 PRINT "NO":GOTO 10 


1 REM ********************* DATEBQQK * 

2 DIM A*<4000),D*<4000),I*<1),B*<76> ,C 
*<76>,M*<76>,Q*<1),T*<76>,E*<76>,F*<76 
),N*<76>,CL*<1> 

3 DIM L<100,2), M<100,2),S(100) 

4 OPEN #1,4,0,"K:" 

6 CL*=CHR* <125):PRINT CL* 

9 N=1:LD=76:Ll=14:L2=39:REM GOTO 800 


10 

PRINT 

II 

9 

DATEBOOK 

It 


11 

F'R I NT 

"1 

ENTER DATA" 


12 

PRINT 

II 

SORT 

A * 

W m 

PRINT" 

13 

PRINT 

"3 

DISPLAY 

7: 

EDIT" 

14 

PR I NT 

4 

SAVE 

8: 

CLEAR" 

15 

PR I NT 

ii cr 

w 

LOAD 

9: 

QUIT" 

20 

PR I NT 

9 f 

•OPTION";: 

INPUT 

Q 

30 

ON Q 

GOTO 100,200, 

300,400,500,600,7 


00,800,900 
40 GOTO 10 

100 PRINT "ENTER DATA ZZZ TO Q 

UIT" 

110 PRINT "DATE/TIME:GOSUB 1000:PRI 
NT 

120 IF T*="ZZZ" THEN ND=N-1:G0T0 10 
130 D*=T*:PRINT " EVENT:";:GOSUB 10 
00:PRINT 

140 E*=T*:PRINT " NOTE:";:GOSUB 10 

00:PRINT 
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150 n$=t*:gqsub 1100 

1B0 A$(1+LD*(N-l))=T$ 

190 N=N+1:GOTO 110 

200 PRINT "SORTING":FOR N=1 TO ND:S(N) 

=*1: next n:pl=i 

210 N=1 

220 IF S(N)=0 THEN N=N+l:GOTO 220 
225 F'=N+1: LN=N: SP= 1 +LD* (N— 1 ) : B$—A$ (SP 
SP+L2+L(N, 2) -1 ) * 

230 IF S(P>=0 THEN 260 

240 HN=P:SQ=1+LD*(P-1):C$=A*(SQ,SQ+L2+ 

L(P,2)-1):IF B$<C$ THEN 260 

250 T$=B$: Ef$=C$: C$=T$: LN=P: HN=N 

260 P=P+1:IF P<=ND THEN 230 

270 SY=1+LD*(PL-1):D$(SY)=B*:FOR ZL=0 

TO 2:M(PL,ZL)=L(LN,ZL>:NEXT ZL:PL=PL+1 

:S(LN)=0:IF PL=ND THEN 280 

275 GOTO 210 

280 SY=1+LD* (ND-1 ) : D$ < SY) *=0$: FOR ZL=0 

TO 2: M (ND, ZL) =L (HN, ZL) : NEXT ZL 

—90 F RI NT — — “ BONE — — 1211 : A$ !3 D$ 

295 FOR N=1 TO ND:FOR ZL=0 To"2:L(N,ZL 
)=M(N,ZL):NEXT ZL:NEXT N:GOTO 310 
300 GQSIJB 1400:LM=LEN(M*> 

310 FOR N=1 TO ND:SP=1+LD*(N-l):T$=A*< 
SP,SP+L2+L(N,2)-1) 

320 GOSUB 1150: IF L.M=0 THEN 370 
330 ON FM GOTO 340,350,360 
340 IF LM>LEN(D$) THEN 380 
343 IF M$=D$(1,LM) THEN 370 
346 GOTO 380 

350 IF LM>LEN(E$) THEN 380 
353 IF M*=E$(i,LM) THEN 370 
356 GOTO 380 

360 IF LM>LEN(N«) THEN 380 
363 IF M$=N$(1,LM) THEN 370 
366 GOTO 380 

370 PRINT D$,E$:PRINT " ";N$ 

380 NEXT N 

390 PRINT ,,"MENU";:INPUT Q*:GOTO 10 
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400 PRINT , "FILENAME FDR SAVE"INPUT 
E * 

410 F*="D: ":F*(.3)=E«:F*(LEN<F*)+1)=".D 
TA":OPEN #2,8,0,F$ 

420 FOR N=1 TO ND 

430 SP=.l+LD* <N-1 ) : Tt>=A$ <SP, SP+L2+L <N, 2 
)-l):GOSUB 1150:IF D*«"" THEN 480 
440 PRINT #2;D$:PRINT #2;E$:PRINT #2;N 
$: PRINT' ">";D*,E$ 

480 NEXT N:PRINT #2?"ZZZ" 

490 CLOSE #2:GOTO 10 

500 PRINT ,"FILENAME TO LOAD"5:INPUT E 
$ 

510 F*="D:":f$<3)=e^:f*<len<f*)+1)=".d 
TA":OPEN #2,4 ,0,F$ 

520 INPUT #2,D*:IF D*="ZZZ" THEN 590 
530 INPUT #2, E$: INPUT #2,N$ 

540 GOSUB 1100:SP=1+LD*(N-l):A*(SP)=T* 
545 PRINT "<";D*,E* 

550 N=N+1:GOTO 520 

590 ND=N-l:CLOSE #2:GOTO 10 

600 GOSUB 1400:LM=LEN < M$) 

610 FOR N=1 TO ND:SP=1+LD*<N~1):T$=A$( 
SP,SP+L2+L <N,2>—1> 

620 GOSUB 1150:IF LM=0 THEN 670 
630 ON FM GOTO 640,650,660 
640 IF LM>LEN(D$) THEN 680 
643 IF M*=D*<1,LM> THEN 670 
646 GOTO 680 

650 IF LM>LEN<E$) THEN 680 
653 IF M$=E$(1,LM) THEN 670 
656 GOTO 680 

660 IF LM>LEN(N$) THEN 680 
663 IF M*=N*<1,LM) THEN 670 
666 GOTO 680 
670 LPRINT D$,E$,N* 

680 NEXT N 
690 GOTO 10 

700 GOSUB 1400:LM=LEN < M$):IF FM=0 THEN 
10 
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710 FOR N=1 TO ND:SP=1+LD*(N-1>:T*=A*( 
SP,SP+L2+L(N,2)-1) 

720 GOSUB 1150:IF LM=0 THEN 770 
730 ON FM GOTO 740,750,760 
740 IF LM>LEN(D$> THEN 790 
743 IF M*=D*;(1,LM) THEN 770 
746 GOTO 790 

750 IF LM>LEN(E$) THEN 790 
753 IF M*=E*<1,LM> THEN 770 
756 GOTO 790 

760 IF Lli>LEN (N$) THEN 790 
763 IF M$=N*<1,LM> THEN 770 
766 GOTO 790 

770 GOSUB 1700:IF T$="ZZZ" THEN N=ND+1 
:GOTO 10 

780 D$=" ": IF N=ND THEN 785 
783 D$=A$(SP+LD,LEN(A$)) 

785 A$ (SP)=T$: A$ (SP+LD)=D$ 

790 NEXT N:GOTO 700 

800 PRINT "CLEARING NY MIND ..." 

810 FOR Z=1 TO 1000:A$(Z)=" ":NEXT Z 
820 FOR Z=1 TO 100:S(Z)=0:NEXT Z 
090 N=l:PRINT CL$:GOTO 10 
900 PRINT "DONE":END 
1000 T$="" 

1010 I=PEEK(764):IF 1=255 THEN 1010 
1020 GET #1,K:POKE 764,255 
1030 IF K=155 THEN RETURN 
1070 I$=CHR$ (K) :PRINT 1$; 

1080 T$(LEN(T$)+1)=I$ 

1090 GOTO 1010 

1100 T*=D$:T*(LI)=E*:T$(L2)=N$ 

1110 L(N,0)*LEN(D*)-1:L(N,1)=LEN(F*)-1 
: L (N, 2) =LEN <N$)-1 
1140 RETURN 

1150 D$="": IF L(N,0)<0 THEN 1160 
1155 D$=T$(1,1+L(N,0)) 

1160 E$— : IF L(N, 1> < 0 THEN 1170 

1165 E*=T$(LI,Ll+L(N, 1>) 

1170 N*=" " : IF L. (N, 2) <0 THEN 1190 
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1180 N$=T$<L2,L2+L(N, 2)) 

1190 RETURN 

1400 M$="": PRINT "FIELD TO MATCH"; 

1410 INPUT F$: IF F$="" THEN FM=0:GOTO 
1490 

1420 FM=VAL<F$):PRINT " DATA TO MATCH" 

• 

!> 

1430 INPUT M$ 

1490 RETURN 

1700 PRINT D$,E$:PRINT " " ; N$ 

1710 PRINT "DATE/TIME:"5:GOSUB 1000:PR 
I NT 

1720 IF T*="ZZZ" THEN RETURN 
1740 D$=T$ 

1750 PRINT " EVENT:GOSUB 1000:PR 
I NT :IF T$="" THEN 1770 
1760 E$=T$ 

1770 PR I NT " NOTE: " 5 : GOSUB 1000: PR¬ 

INT : IF T*="" THEN 1790 
1780 N$=T* 

1790 GOSUB 1100:RETURN 
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$6.95 

HOMEWORK HELPER FOR THE ATARI® 

Herbert Kohl 


Most school-age children agree on at least one thing—homework 
is not fun! The very mention of this nightly ritual in most homes 
elicits moans and groans along with some pretty creative excuses! 

Michael Potts knows the problems associated with homework and 
has developed HOMEWORK HELPER, an exciting new group of 
programs that takes the anxiety out of homework and replaces it 
with logical, workable alternatives! 

This important addition to the Creative Pastimes series includes 
programs to help your child with virtually all major coursework. 
Spelling, vocabulary, history, and math programs can be tailored to 
suit your child’s individual study needs. In addition, valuable sections 
on developing good study habits, organizing school assignments, and 
important note-keeping programs maximize study time. 

Let your child benefit from a winning combination— 
HOMEWORK HELPER and your Atari computer! 


A Creative Pastimes Book 

RESTON PUBLISHING COMPANY, INC. 

A Prentice-Hall Company 
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